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Symbols, Abbreviations, and Definitions 


ATC 

\NOVA 

CCS 

CSM 

DICE 

FAA 

FAF 

FASA 

FPL 

GM 

kts 

MAN 

MOTAS 

NASA 

nmi 

P 

PLSD 

PPI 

TIMER 

TRACON 

VOR 

170 

210 


air traffic control 
analysis of variance 
cross check scans 

centerline slot marker display format 

direct course error (time) countdown display format 

Federal Aviation Administration 

final approach fix 

final approach spacing aid 

full performance level 

graphic marker display format 

knots 

manual/ARTS III display format (no FASA) 

Mission Oriented Terminal Area Simulation 
National Aeronautics and Space Administration 
nautical mile(s) 

level of significance for treatment effect in ANOVA 
protected least significant difference 
ATC station plan position indicator 

traffic intelligence for the management of efficient runway 
scheduling 

terminal radar approach control 
VHF omnidirectional radio range 
170 knot pattern speed procedure 
210 knot pattern speed procedure 


Summary 

A dynamic real-time simulation study was 
conducted at NASA- Langley to gather comparative 
performance data among three candidate final- 
approach spacing aid (FASA) display formats. That 
study, formally documented in references 1 and 2, 
included an analysis of subject-controller eye scan 
data recorded from an oculometer system. The 
FASA display study was different from earlier 
applications of the oculometer system because the 
gaze objects (e.g., aircraft) were moving. Most past 
NASA oculometer applications involved a fixed- 
position display such as cockpit instruments. In the 
FASA study, individual objects on the screen were 
associated with a lookpoint. This paper describes 
some of the methodology used in the eye scan por- 
tion of the FASA study. Synchronization of oculo- 
meter data with simulation data is discussed as is 
data filtering. Algorithms for identifying lookpoint 
targets and for identifying cross check scans are 
described. Flow charts, block diagrams, file record 
descriptors, and extensive source code are included. 
Three general categories of statistics are examined: 
total time spent looking at screen objects, average 
length of lookpoint fixations for a given controller 
and display format, and cross check scans. The lat- 
ter is a back and forth eye scanning sequence 
between two display objects. Three sets of tables 
are provided for each of the three categories of sta- 
tistics. In addition to overall numbers, breakdowns 
by type of object and screen zone are also reported. 
The tables indicate the lookpoint measures defined 
for the FASA study and are presented for possible 
oculometer use in future ATC display studies or 
other displays employing an oculometer. Some of 
the methodology reported here may be applied to 
other studies with individual moving elements. 

1.0 Introduction 

The oculometer facility at the NASA Langley 
Research Center was recently used in support of an 
air traffic control final approach spacing aid (FASA) 
display evaluation study. The study, documented 
in references 1 and 2, compared the relative merit 
of three proposed automation-aid supplements to 
the final approach radar display in addition to the 
baseline manual ARTS III format (MAN). The 
FASA display formats evaluated were extended- 
runway-centerline slot markers (CSM), direct 
course time error countdown (DICE), and graphic 
marker (GM). Several methods such as analysis of 
aircraft separation and delivery precision, control- 


ler response time to automation suggested vectors, 
and controller workload were used to assess the 
effectiveness of the proposed display changes. An 
additional evaluation technique used was an analy- 
sis of the eye scanning behavior of the subject- 
controllers. The results of the eye scanning behav- 
ior analysis were consistent with results from the 
other methods. This paper is concerned with 
documenting the techniques used in the FASA 
study to do eye scanning behavior analysis and 
with the programs that were used to reduce and 
analyze the data. 

There are several reasons for documenting the 
work. First, it was unusual in oculometer applica- 
tions for the gaze object (e g., an aircraft on the dis- 
play) to be moving. Normally the display is fixed 
for a test involving an oculometer. Thus, software 
had to be written to accommodate moving objects. 
References 1 and 2, because of space limitations 
and lack of general interest, does not include the 
details of the work. Readers interested in eye 
scanning analysis may wish, however, to see a more 
in-depth discussion. Second, an experiment using 
complex simulation equipment and full perform- 
ance level FAA controllers will be difficult and 
expensive to reproduce, but it was possible that the 
FASA eye scan data would be examined again 
someday for related or unrelated studies. If so, this 
document could be very helpful. Third, there was 
latent interest in using the oculometer in planned 
air traffic control studies. Since new oculometers 
were being installed at both NASA Langley and the 
FAA Technical Center, it was expected that some of 
the lookpoint measures and methodology described 
in this paper will be carried over to future studies 
using the new equipment. 

The programs written for the FASA study were 
in compiler basic (Microsoft Quick Basic) and were 
executed on a desktop computer. The file naming 
convention used throughout this paper was as fol- 
lows: The data file name consisted of an eight 

character run identifier followed by a period and a 
three character file type designator. For example, 
the file DB16DC21.DAT was a DAT (data) file, run 
number 16 for subject DB. The run was a DICE 
display format, 210-knot approach-pattern-speed 
test. The DAT file is written by the oculometer 
data collection computer during the test and con- 
tains the lookpoint coordinates and other data. 
Throughout this paper files are referred to by their 
suffixes such as .SCN, DAT, ACP, MRG, and 
CCS. The data record descriptors for those files 
are discussed and illustrated in appendix A. The 



description, when appropriate, includes references 
to the source code that was used to read or write 
the file. The first file discussed in appendix A is the 
.CCS file, i.e., cross check scan. Usually, there are 
96 individual files of any type. That was so because 
there wp'e 12 controller subjects, each testing four 
display formats at two different pattern speeds. 
Understanding this convention is important to 
understanding this paper. The deceptively simple 
block diagrams presented in appendix B rely heav- 
ily on this convention. Those block diagrams, 
which show the relationships between the files and 
the processors (or programs), were used often dur- 
ing the study and proved themselves to be quite 
valuable. 

Another convention that should be explained 
for clarity is that most of the programs are list 
driven. That is, they run from a list of files (a file 
itself) and don't stop until all the files on the list are 
processed. In appendix B, this list file is usually 
shown above the processor. Normally the list con- 
tained all the runs for one test condition. At times 
as many as three computers, each with its own list, 
were used in parallel to process the data more 
quickly. 

The intent of this paper is that it will aid a 
data analyst faced with a task similar to that 
encountered in analyzing the FASA oculometer 
data. A description of the oculometer equipment, 
environment, and procedures are provided. The 
logic of certain algorithms, which are considered 
important but complex, are discussed in the body of 
the paper. Statistics from the FASA study omitted 
from reference 1 and 2 are also included here. 
Those are given, not to support the conclusions of 
the FASA study, but to illustrate the techniques 
used. Source listings for the programs included in 
appendix C and the block diagrams in appendix B 
make it easier to understand how the data was 
processed and where to look in the source code for a 
given function. The record descriptors in appendix 
A will be especially helpful for anyone re-examining 
the FASA data. 

2.0 System Overview 

A detailed description of the development of 
the Langley oculometer system, along with its 
installation and operating procedures can be found 
in Appendix A of reference 3. The oculometer facil- 
ity computes and stores a time history of eye-scan- 
ning events. The block diagram (figure 1) shows 


the components of the system. The oculometer 
(blocks 1-7 of figure 1) projects a collimated near- 
infrared beam of light into the test subject s eye. 
The system depends on algorithms that can com- 
pute a lookpoint, if given the relative position of two 
eye reflections. The computer compares the large 
backlighted pupil reflection to the much smaller 
and more intense corneal reflection. Using split 
image techniques the system directs the illuminat- 
ing beam through the same tracking mirror system 
that collects the reflected images. It uses the 
angles of the two automatic tracking mirrors and 
the manually controlled focus of the eye-camera 
optics to correct the lookpoint calculation for subject 
head position. The oculometer electro-optic head 
(blocks 4 and 5) is located directly in front of the 
subject (block 8) and just below the simulated radar 
display as shown in the photograph in figure 2. 
This location is well outside the final controller’s 
normal scan area, which is concentrated around the 
center of the display. The subject can detect only a 
dull red light in the head’s mirror system For the 
purposes of calibration and monitoring real-time 
performance, the system mixes (block 9) the com- 
puted lookpoint position with the plan position indi- 
cator (PPI) video signal that is nonobtrusively 
recorded (blocks 10 and 11) from a repeater display 
shown in figure 3. The resulting combined display 
(block 12) contains a small circle of light represent- 
ing the lookpoint as it moves among the display 
symbols. An observer can monitor in real time both 
system and subject performance by viewing the 
combined signal, and a video recorder (block 13) 
stores the signal on tape for post run analysis. 

The oculometer control and data processing system 
is located in the Human Engineering Methods 
(HEM) laboratory one floor below the mission ori- 
ented terminal area simulation (MOTAS) facility 
used to represent a TRACON facility in the FASA 
study. The MOTAS facility is documented in refer- 
ence 4. Figure 4 is a photograph taken in the HEM 
laboratory. In the background corner sits a display 
monitor that has the mixed video with the control- 
ler PPI display and the controller’s lookpoint super- 
imposed. The three 5-inch video monitors in front 
of the main system operator (in the foreground) are 
used for system monitoring and control. Details of 
their displays do not show well in the photograph. 
The left monitor is a duplicate of the mixed 
PPI/lookpoint display. The center monitor shows 
the bright corneal reflection on the much larger and 
darker pupil reflection in the background. The 
monitor on the right displays an image of the 
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Figure 1. Operational block diagram of the NASA Langley oculometer facility 
interaction with the TIMER ATC simulation. 
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Figure 2. Photograph taken in the MOTAS facility showing a simulated ATC station with the 
oculometer electro-optic mechanism and video camera for monitoring subject head 
position (blocks 3, 4, and 5 in figure 1). 
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Figure 3. Photograph of PPI repeater display and video camera for generating video signal of 
the ATC display (blocks 10 and 11 in figure 1) to be video mixed with lookpoints* 




Figure 4. Photograph taken in the HEM laboratory showing the oculometer control 
and data processing system stations. 
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subject’s head captured by the head position camera 
shown in figure 2. The operator uses this camera to 
observe the subject and, also, as an aid to recapture 
the subject’s eye after losing track. The signal on 
the television waveform oscilloscope above the 
monitors is the sweep from the eye-camera used to 
determine the relative position of the two reflec- 
tions. The central narrow peak indicates the cor- 
neal reflection. The broader peak at about half- 
voltage represents the pupil reflection, and the low 
voltage baseline represents the rest of the eye, 
including lids and lashes, all of which are adjusted 
to the video black reference level. By keeping track 
of video sweep count and timing when voltages 
cross specified levels, the system determines the 
center of each of the two reflections and, thus, their 
relative position on the camera vidicon. 

Figure 4 does not include the oculometer com- 
puter. However, it does show several of the digital 
readouts and control inputs for the oculometer 
computer. Those include potentiometers, a stan- 
dard typewriter keyboard, a joystick (under the 
operator’s right hand), and a pushbutton (in the 
operator’s left hand). Their principal use is for pre- 
run calibration, but the operator also uses them to 
dynamically compensate for the subject’s posture 
adjustments. The mirror tracking is automatic and 
works well. The joy stick is a manual augmenta- 
tion for the mirror tracking. The operator uses it to 
override the search algorithm when the eye is out- 
of-track and the system is trying to reacquire. He 
does not use the joy stick often but when used it 
speeds up reacquisition considerably. The fastest 
reacquisition involves the use of the pushbutton 
shown in his left hand which instantly returns the 
mirrors to a predefined nominal eye position. That 
technique is always tried first in reacquiring the 
eye, because most individuals performing a visual 
monitoring task often return to the same position 
after briefly rotating their heads to talk, read, or 
type on a keyboard. The operator controls the mir- 
rors, the eye-camera focus, and collimated infrared 
beam intensity. He also determines and enters sys- 
tem parameters during calibration including 
parameters to adjust for inter-subject differences in 
corneal curvature. 

The micro computer in the background of fig- 
ure 4 collects and stores the visual events in real 
time in its random access memory (RAM). The 
computer contains a 16-channel analog-to-digital 
conversion circuit board that acquires eye scanning 
signals from the oculometer system and timing sig- 
nals from the mainframe simulation computers. It 


should be noted that the mainframe computers are 
not used for eye scanning data collection during 
FASA because of the processing load required to 
operate the traffic intelligence for the management 
of efficient runway scheduling (TIMER) simulation 
program. At the end of each run the operator cop- 
ies the records stored in RAM to a disk file for long 
term storage. Each record spans a variable time 
duration that is an integer multiple of the oculome- 
ter sample period (30 samples per second). There 
are four data fields per record containing lookpoint 
coordinates (2 dimensions), pupil diameter, and 
duration of the event. For an out-of-track event, 
the system records lookpoint coordinates as zero 
and stores a status code in the pupil diameter field. 
Once per simulation update, i.e., every four sec- 
onds, the system stores one other field on a second 
file. That field contains the sequence number of the 
visual event last completed as the ATC simulation 
interval started. The data reduction algorithms use 
this information later for synchronizing the 
recorded simulation data with the oculometer data. 

2.1 Equipment, Environment, and 
Procedures 

2.1.1 Measuring eye scanning behavior in 
glass display (CRT) environments 

One of the greatest challenges presented by 
the FASA study for the eye scanning data analyst 
was that of answering the synchronization ques- 
tion, "What target was presented at location x,y at 
elapsed time 37:15 in the run?" (The '37:15' was 
chosen for illustration, only.) However, for the ocu- 
lometer operator there was a more fundamental 
challenge underlying concerns for data quality, e g., 
"What display feature was actually located 3 inches 
to the left and 2 inches below the center of the 
PPI?" In this type of visual environment all targets 
were behind glass. The oculometer system was 
simply measuring, in effect, where on the glass the 
subject was looking. If the runway threshold of 26L 
(the expected target) was actually being displayed 
at (-3, -2) inches then the data output was correct. 
If the PPI content had been shifted or rescaled, 
however, by a software offset or an electronic bias, 
the oculometer output would have been compro- 
mised. In this example, the subject actually may 
have been looking at the point (-3, -2) inches from 
the center, but some other display feature could 
have been displayed at that location because of a 
display error. 
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The oculometer was designed to report the 
lookpoint of a subject on a fixation plane defined 
relative to the face of the electro-optic head mirror 
box, or oculometer port. If the mirror box were to 
move to another location, the output data would be 
in error because the eye rotations would be viewed 
from u different observation point. Similar errors 
would occur if the features on the fixation plane 
moved to locations different from those previously 
described in the oculometer program geometry. In 
earlier studies at LaRC involving aircraft cockpits 
with conventional fixed-position instrumentation, 
the fixation plane was clearly defined by the sta- 
tionary position of the visual targets. Now, with 
the advent of glass cockpits, the fixation plane can 
contain many possible display configurations, each 
with its own features and relative locations. 

The air traffic control environment has been a 
glass environment for several decades, since the 
first use of radar displays for monitoring aircraft 
locations. Because the PPI made up the entire vis- 
ual field of the final approach controllers in this 
study, the locations of all visual targets, including 
both fixed features and moving air traffic symbol- 
ogy, depended on the software driving the display 
as well as such hardware factors as control knobs 
and electronic circuit stability. In the Langley 
MOTAS facility, for example, the Evans & 
Sutherland CRT provided control knobs for adjust- 
ing display height and width and horizontal and 
vertical gains. An access cover was placed over 
those knobs during the FASA study to prevent 
rescaling and repositioning of the display features 
by the controllers, but other means of display 
alignment was necessary in order to insure the 
accuracy of PPI geometry for eye scanning data col- 
lection and analysis. 

2.1.2 PPI Alignment Template 

Figure 5 illustrates an alignment template 
which was designed for the FASA experiment and 
used at the beginning of each test session in order 
to insure that the fixation plane description of the 
PPI was accurate and consistent throughout the 
study. Each day the template was placed directly 
on the face of the final controller's PPI to check for 
proper positioning of the fixed features on the dis- 
play. Exact placement of those features on the 
template was accomplished by direct measurement 
of the PPI during static display of stationary ele- 
ments, including the Denver Stapleton runways, 
the final approach to runway 26L out to 20 nmi, the 
final approach fix (FAF), the final controller's air- 


space (referred to at Denver as the dump region), 
the Denver VORTAC (DEN), the airspace intersec- 
tions FLOTS and WIFES, five nmi range-rings, and 
the outlines of the four approach corridors. The 
template also showed the positions of 25 aircraft 
placed at intervals of 5 nmi and arranged in a grid 
surrounding the final approach course. Each of 
those aircraft appeared on the template as an F 
connected by a leader to a representative ARTS III 
data block. This display of aircraft provided an 
array of visual targets for the subject controllers 
during oculometer calibration. An additional fea- 
ture of the template was a reference axis system, 
shown as dotted lines, to allow rotational alignment 
with the Evans & Sutherland CRT enclosure. 

After measurements were completed the template 
was plotted on clear acetate using computer-aided 
design and drawing (CADD) software. An axis 
transformation program was written to quickly 
convert FASA display coordinates to oculometer 
output coordinates. The conversion process, which 
included axis translation, rotation, and scaling, con- 
firmed the physical PPI display location of each 
fixed feature or aircraft target generated by the 
simulation computer. In addition, the oculometer 
output voltages for each target were also confirmed 
since they were scaled such that 1 volt = 1 inch. 
The simulation geometry was based on an axis sys- 
tem centered at the airport surveillance radar 
(ASR) site and represented aircraft locations in 
nautical miles north and east of that point. The 
origin appeared on the template as a small dot just 
north of the middle of runway 26L. The oculometer 
reference origin was located along the final 
approach course at a range of 10 miles, and the 
data output coordinates were represented in inches 
to the right and above that point (See figure 6 for 
the display area covered by the oculometer ). 
Relative to the oculometer axis system the FASA 
origin was translated 5.04 inches to the left and 0.9 
inches below the oculometer origin. The 20 nmi 
final approach course on the PPI measured 9.625 
inches, which resulted in a scale factor of 1 nmi = 
0.48125 inches. While the oculometer axes were 
physically aligned with horizontal and vertical sur- 
faces in the MOTAS facility, the FASA display axes 
were rotated counterclockwise 12 degrees. This 
rotation was the sum of the Denver local magnetic 
variation of 10 degrees east and a slight bias in the 
display CRT of 2 degrees in the same direction. In 
order to align properly with the PPI, the completed 
template contained the 12 degree rotation and the 
measured scale factor and axis translation. Thus 
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the relationship between the two axis systems can 
be represented by the equations: 

XOCULO = SF*(X*SIN(A) + Y*COS(A)) - XOFF 
YOCULO = SF*(X*COS(A) - Y*SIN(A)) - YOFF 

where the variables XOCULO and YOCULO repre- 
sent the horizontal and vertical oculometer output 
in inches (volts); the variables X and Y represent 
FASA coordinates north and east of the ASR in 
nautical miles; the constants XOFF and YOFF are 
the coordinates of the FASA axis system origin, in 
inches, as measured from the oculometer system 
origin; the constant SF represents the scale factor, 
0.48125 nautical miles per inch; and the constant A 
represents the angle of rotation, -12 degrees 
(negative because the angular rotation is clockwise 
when going from the FASA system to the oculome- 
ter system). 

After the display features were checked each 
day for proper positioning (scaling, offset, and rota- 
tion), the geometric relationship between the PPI 
visual targets and the oculometer port was con- 
firmed. Then, scene video was aligned. 

2.1.3 Video Alignment 

Figure 3 shows the remote scene camera and 
PPI repeater display used for the FASA study. This 
use of a scene camera which was remotely located 
outside of the main test area was a first at LaRC. 
In previous Langley oculometer installations the 
scene camera was typically mounted over the sub- 
ject's shoulder which caused geometric distortion in 
the view, as well as occasional problems with scene 
obstruction or camera disturbance by the subject. 
However, by referencing the oculometer data out- 
put to video from a repeater PPI rather than the 
subject-viewed PPI, several benefits were realized. 
First, the scene camera view remained physically 
undisturbed and unobstructed during the 70-min- 
ute test runs, because the camera was located out- 
side of the active test area. Second, a true perspec- 
tive of the PPI was made possible by positioning the 
camera squarely in front of the display (see figure 
3). Third, the potential for wire clutter in the con- 
troller workspace was reduced by routing associ- 
ated video cables into a separate part of the 
simulator room. 

During video alignment the PPI features 
viewed by the remote scene camera were matched 
to their geometrical counterparts in the oculometer 
computer. As described in reference 3, the com- 
puter generated a series of points corresponding to 


measured features on the static display , including 
but not limited to the Denver VORTAC, the 
threshold of runway 26L, the F AF, and the four 
comers of the dump region. These points appeared 
as white dots on the oculometer control panel scene 
monitor (figure 4) and were fitted to the video scene 
by adjusting electronic potentiometers to correct for 
distortions in vertical and horizontal gain, bias, and 
cross talk. This procedure allowed the scene moni- 
tor, with its superimposed dots, to represent the 
actual data output of the oculometer system. Since 
the video information captured by the remote scene 
camera was aligned with corresponding points 
stored in the computer, any geometric distortions 
were canceled out. Data accuracy, therefore, was 
not compromised by using the PPI repeater monitor 
and remote scene camera. 

2.1.4 Subject eye calibration 

Prior to the first practice run by each subject 
controller, eye calibration was accomplished by 
directing the subject’s gaze to each of 17 of the air- 
craft arranged in a grid around the final approach 
course. (Only 17 of the 25 aircraft generated for 
calibration were displayed within the 10-inch 
square visual area of interest.) After the targets 
were scanned, the oculometer operator manually 
adjusted linearization constants in the program to 
correct for errors in gain, offset, or pattern align- 
ment, including distortions in vertical slant, hori- 
zontal tilt, pincushion, and curvatures along verti- 
cal or horizontal arcs. The test subject was allowed 
to look around freely and relax during the brief 
time adjustments were being made. The calibration 
targets were then re-scanned, and the process 
repeated until a reasonable result was achieved. 
Because of the potential for subject boredom leading 
to a poor calibration, the total time spent on the 
process was usually less than 3 minutes. Nearly 
two decades of eye scanning research at LaRC have 
demonstrated that this style of calibration proce- 
dure, although necessary, should be performed 
quickly and efficiently to permit the subject to move 
on to the task of interest. Controller interest and 
task engagement were high during the practice and 
data runs. The result was a more consistent look- 
point output and better calibration than were pos- 
sible during the brief, but somewhat tedious man- 
ual calibration. Excellent final calibration results 
were achieved by fine tuning the distortion adjust- 
ments on the fly during the first practice run. The 
resulting calibration constants were saved for each 
subject and used for later test sessions. 
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2.1.5 Visual Area of Interest 

Figure 6 shows the area of the PPI display cov- 
ered by the oculometer used in the FASA study. 
Several tradeoffs were considered prior to the deci- 
sion to restrict coverage to a 10-inch square. 
Sources of errors in eye scanning measurements 
can be grouped into three categories: 1) system 
errors, 2) operator errors, and 3) test subject eye 
physiology. They will be discussed individually, but 
the combined effects of the errors can reduce the 
value of a measurement technique to the point that 
questions relevant to the experiment cannot be 
adequately answered. The key to maximizing the 
utility of any measurement lies in examining the 
working hypotheses for a particular experiment. In 
the FASA study, it was necessary to decide what 
questions about eye scanning behavior were most 
relevant to the task of controlling aircraft in the 
final approach area. The three lookpoint measures 
selected for analysis included track time, average 
dwell time by object type, and number of cross 
checks (reference 1). Most of these measures 
required high -resolution data quality within the 
dump region even at the expense of lack of coverage 
at the edges of the 20-inch PPI. The task being 
observed depended heavily upon aircraft control 
within the dump region, and aircraft delivery-time 
accuracy was the primary performance criterion. 
The working hypotheses frequently demanded dif- 
ferentiation between the aircraft symbol and its 
data block, thereby requiring a lookpoint resolution 
of less than 0.5 inches which approached the opera- 
tional limit of the Langley oculometer. 

Each of the following three sources of meas- 
urement errors imposed data collection and analy- 
sis tradeoffs for the FASA project: 

1) System errors. Each output channel of the 
oculometer has a range of 10 volts, as the output 
digital-to-analog converters (DACs) are capable of - 
5VDC to +5VDC. Because the equipment is a com- 
bination of electronic and optical subsystems, noise 
and distortion are inevitable. By covering a larger 
visual area, those errors create uncertainty over 
larger portions of the data field. For example, if the 
electrical noise were on the order of 0.5 VDC, then 
lookpoint jitters would be 1/20 the size of each lin- 
ear dimension measured, which would be 0.5 inch 
in the 10-inch square covered during FASA and 1 
full inch for the 20-inch square required to track 
the entire PPI. Fortunately, the electrical noise 
experienced during this study was much smaller 
and, together with the chosen scale factor, resulted 


in very slight jitters of the lookpoint. Similarly, 
optical and video limitations prevented the distinc- 
tion between an aircraft symbol and its data block 
when the entire 20-inch PPI was viewed, but it was 
easy to distinguish such details when zoomed in to 
the 10-inch square shown in figure 6. 

2) Operator errors. Although many of the fea- 
tures of the Langley oculometer allow for hands off 
operation, the system is not totally automated. 
Data quality depends on the ability of a human 
operator to accurately calibrate each test subject 
and to monitor system performance throughout the 
entire test. Both of those tasks require high resolu- 
tion of the visual targets of interest. For this study 
of air traffic control in the final approach area, it 
was necessary to differentiate between an aircraft 
symbol and its data block, which required a video 
image capable of clearly displaying each of these 
small features. With the state-of-the-art technology 
in television equipment at the time of the study, 
this capability was only possible when viewing a 
relatively small area of the 20-inch display. Prior 
to the start of this project, the Langley oculometer 
was operated by scaling to the entire PPI. The 
results determined which aircraft was being 
viewed, but could not differentiate between the air- 
craft symbol and its data block. 

3) Eye physiology of the test subject. Individual dif- 
ferences in corneal curvature among subjects result 
in output nonlinearities, which become progres- 
sively worse at larger visual angles from the oculo- 
meter port. For that reason, compromises during 
calibration must often be made. When operated for 
full-scale coverage of the 20-inch display, the sys- 
tem often required major adjustments to the lin- 
earization constants in order to match lookpoints to 
outlying targets around the perimeter. Obtaining 
good accuracy for the perimeter targets often 
resulted, however, in mediocre accuracy within the 
final approach area, or vice-versa. Because the 10- 
inch coverage involved a relatively small total vis- 
ual angle (approximately 30 degrees for a subject 
about 20 inches from the face of the PPI), more pre- 
cise calibration was possible during the actual 
FASA study. Therefore, errors due to physiological 
differences in the test subject eyes were minimized. 

2.2 Quick Look Capability 

The FASA experiments were run during June 
through September, 1991. One of 12 subject-con- 
trollers participated each week. The tests took four 
days per subject. Each half-day consisted of a 
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session using one of the four display formats with 
one of the two approach-pattern speeds. Thus, each 
subject participated in eight different display-for- 
mat tests (four formats times two pattern speeds) 
referred to as treatments. See reference 1 for a 
complete discussion of the design of the experiment. 
Each recorded test run lasted about 70 minutes. A 
large amount of data was acquired in a short time, 
which offset the fact that the equipment and per- 
sonnel necessary to run this experiment were 
expensive and difficult to schedule. 

After the experiment was started, it became 
apparent that a quick look feedback on the quality 
of the recorded data was needed. That is, the data 
needed to be tested immediately for quality and suf- 
ficiency. Otherwise, subsequent post experiment 
analysis might have been handicapped by data defi- 
ciencies. The approach taken was to try to expose 
any deficiencies early, while more response options 
were still available. Since the quick look require- 
ment was not foreseen, a program to provide a 
quick look capability was quickly developed and 
was put into service during the third or fourth sub- 
ject-week. That program, QKLOOK.BAS, is 
included in appendix C. It was used in conjunction 
with the RADAR/lookpoint display combination to 
monitor and tune the system. 

The FASA quick look methodology is probably 
not directly extendible to other studies, since it is 
dependent on the equipment and data acquisition 
algorithms. Therefore, it will not be described in 
detail. However, the concept is directly extendible. 

The quick look analysis examined three quan- 
tities: the length of time associated with a file 

record, the number of times certain events 
occurred, and pupil diameter. The following were 
all taken from the DAT file. 

• Total number of in-track fixations. 

• Total number of out-of-track records. 

• Total time of all in -track fixations. 

• Total time of all out-of-track records. 

They were subdivided into three classes of 
associated record time: 1) less than or equal to 0. 1 
seconds, 2) greater than 0.1 seconds and less than 
or equal to 0.4 seconds, and 3) greater than 0.4 sec- 
onds. In addition, they were considered as a per- 
cent of some larger class. For example, one item 
monitored was total time during a run for in-track 
events of duration greater than 0.4 seconds as a 
percent of total in-track time. Another example is 


average duration of all in-track events whose dura- 
tion exceeded 0.4 seconds. 

All of these measurements had to be judged on 
a relative basis. Certain runs were thought to be 
better than others. Results were compared among 
test runs to try to identify a serviceable discrimina- 
tor in the statistics that would objectively and reli- 
ably indicate if and when the eye-scanning system 
was having problems. That approach was not com- 
pletely successful. However, it helped the team to 
better understand what normal scanning behavior 
looked like on the monitors and how much normal- 
ity varied among controllers. 

For the oculometer system used in the FASA 
study, the number of oculometer data records ( DAT 
file) stored per minute proved to be a simple and 
useful parameter that could be easily calculated 
while making the run. When that rate was higher 
than normal, it alerted the operators that some- 
thing might be functioning poorly so that attention 
to component performance could be increased. The 
parameter seemed to be sensitive to the ability of 
the system to track the subject's eye, noise in the 
system, and the style and speed of a particular con- 
troller's eye-scan pattern. The rate varied greatly 
among controllers. Tbe highest average rates were 
three times the lowest. Figure 7 illustrates those 
differences. The variation among controllers as 
opposed to that caused by display format is dis- 
cussed in section 3.0. 

Figure 8 shows average pupil diameter for the 
twelve subjects for in-track records for which dwell 
time exceeded 0.4 seconds. Pupil diameter 
appeared to be insensitive to the display parame- 
ters being studied and was not used at all in the 
FASA study. 

2.3 Recording, Synchronizing, and Filtering 
the Data 

This section deals with the mechanics of defin- 
ing a fixation and synchronizing it with the 
recorded simulation data. The problems themselves 
(not necessarily the solutions) have some general- 
ity, and in evaluating the results of the study 
reported in reference 1, some readers may want to 
know the details of the process. 

Recording the Data. For this study, data runs 
were approximately 4200 seconds long and oculo- 
meter samples were taken at a rate of 30 per second 
for a total of about 126,000 samples per run. The 
time available to process a sample was about 33.3 
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Figure 7. Comparison of average number of oculometer records per minute recorded for the FASA test subjects. 
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Figure 8. Comparison of average eye-pupil diameter during long fixations. 



milliseconds. Because of the large number of sam- 
ples, the limited size of random access memory in 
the data collection computer, and relatively slow 
hard disk access time, the researchers decided to 
preprocess the data. That approach decreased the 
number of records to be saved and allowed the data 
to be kept in primary memory until the end of the 
test, when it was stored on the disk for post- 
processing. 

The preprocessing consisted of combining 
sequential samples into a single longer sample. For 
example, any number n of consecutive out-of-track 
samples were combined into a single sample of 
length n before being stored in the appropriate in- 
memory arrays. The occurrence of an in-track 
sample caused the storage of a previously accumu- 
lating out-of-track sample-sequence. Likewise, an 
out-of-track sample caused the termination and 
storage of an accumulating in-track sequence, i.e., a 
fixation. 

Another part of the data compression process 
deals with the transition from one in -track 
sequence (fixation) to another. The following fac- 
tors were used to determine the occurrence of a 
transition. The lookpoint position of a sample was 
compared with the preceding position. The look- 
point position of the next sample was compared 
with the average of the first two, etc. For each suc- 
ceeding sample the lookpoint position was com- 
pared with the previous running average of look- 
point positions. If the distance between them was 
greater than a specified threshold (1 inch in the 
FASA study), the accumulated sequence was stored 
and a new fixation sequence was started. 
Otherwise, the running average was updated to 
include the present sample, and the sequence con- 
tinued uninterrupted. This data compression prior 
to recording, although necessary, was of course 
irreversible and, therefore, added to the criticality 
of the acquisition process. It should be noted that 
the newer oculometer systems are not faced with 
the above data storage restrictions. In those sys- 
tems, access to the raw data is provided for any 
post-processing that might be desired. 

When an in-track sequence was stored, its 
lookpoint position was the average of the sampled 
positions. The pupil diameter was recorded as an 
average of the pupil diameters for the included 
samples. The duration of the sequence is the num- 
ber of samples included multiplied later by 1/30 
second. The two files created at the end of each test 
are referred to as the .DAT file and the .SCN file. 


Here as elsewhere in this paper, a file type will be 
referred to by its suffix in order to minimize ambi- 
guity. There are 96 files of each type. Their file 
names identify 1) the controller subject, 2) the 
FASA display format, 3) the approach-pattern 
speed, and 4) the run number. For example, a file 
might be named MC12MN21.SCN indicating the 
210 manual run numbered 12 by subject MC. 
Using this convention (file type suffix), one can find 
the data record descriptor for the file type in 
Appendix A and a block diagram describing how the 
file type is processed in appendix B. Details (source 
listings) of each processor are given in Appendix C. 

Each data record in the DAT file is composed 
of four 2-byte integers: the x and y screen coordi- 
nates, the pupil diameter, and the number of 
included samples. Out-of -track records are identi- 
fied by a pupil diameter of zero. The number of 
records in the .DAT file, for a given length of time 
and treatment, varies significantly among subjects. 
For all 96 data runs, the average number of records 
in the files is 11,234. Since the runs lasted 
approximately 4200 seconds, this indicates a rate of 
about 2.7 records per second. The 8 run average 
per controller varied, however, from a low of 6,173 
records to a high of 17,076 records. This large dif- 
ference between subjects was easily observable dur- 
ing the runs. The lookpoint motion would appear 
slow and deliberate for one subject, but for another 
it would appear very rapid. The filtering described 
later decreased the variation across subjects, and 
the use of the repeated measures analysis of vari- 
ance (ANOVA) prevented the differences between 
subjects from masking out the cross treatment 
variations of interest. 

Synchronizing. During the test runs, the 
dynamics of the aircraft being simulated, their rela- 
tive geometry, and the graphical interface to the 
pseudo pilots and controller subject were being 
computed on a large mainframe computer. The 
computer supports, and is tightly coupled to, the 
MOTAS facility. This large and sophisticated real- 
time simulation produces a time-history file (.ACP) 
that gives the position of all the aircraft on the con- 
troller's display every four seconds, a typical sweep- 
rate of an airport surveillance radar. In order to 
determine what the subject is looking at during any 
particular fixation, the frame (a set of contiguous 
records) of the .ACP file that describes the display 
at the time the fixation was recorded must be 
found. Then, the frame is searched for an object 
whose coordinates are sufficiently close (within 0.57 
inches) to the lookpoint coordinates. Establishing 
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the correspondence between each fixation and a 
particular display frame is referred to as synchro- 
nizing the .DAT file to the .ACP file. The search for 
a lookpoint object is conducted later, after the data 
is filtered, but the method used to synchronize the 
files requires that the synchronization must be the 
first step. It must precede any deletion or combin- 
ing of records on the .DAT file. 

The .SCN file is used to affect the synchroniza- 
tion of the fixation file with the time history file. At 
the beginning of each simulation update (simulated 
radar sweep), the simulation causes a bit to be tog- 
gled in the oculometer recording computer. This, in 
turn, causes the record number of the last DAT 
record stored to be written to the .SCN file (in- 
memory array). The single integer on the SCN 
record is a pointer to a record on the .DAT file. The 
.SCN record number or ordinal indicates time 
elapsed in the simulation and is in itself a pointer 
to a frame on the .ACP time history file. For exam- 
ple, the 10th record on the .SCN file corresponds to 
the 10th frame on the .ACP file and was written at 
36 seconds of elapsed time (The first record was 
written at time equal to zero, the second record was 
written at an elapsed time of 4 seconds, etc.). The 
algorithm for synchronizing the DAT and .ACP 
files determines which records of the DAT fixation 
file correspond to frame i of the ACP file based on 
the pointers contained in records i and i plus one of 
the .SCN file. For example, if record 500 of the 
.SCN file contains the integer 7123 and record 501 
contains the integer 7135, this indicates that, record 
numbers 7125 through 7136 on the DAT file corre- 
spond to display frame 500 on the .ACP file, which 
was recorded at an elapsed time of 1996 seconds. 
This algorithm is implemented in the subroutine 
FIXPOINTER, which is part of the processor 
FIXPOINT listed in Appendix C and shown graphi- 
cally in Appendix B. The processor reads the .DAT 
and .SCN file and assigns a frame in the .ACP file 
to each record on the .DAT file. The resulting .DTI 
file is the same as the DAT file except that each 
record has an added field, which points to the cor- 
responding frame on the ACP file. Because the 
.ACP file has a complex structure with a variable 
record size and a variable number of records per 
frame, it was indexed by the .IDX file, which was 
produced by the CRI8IDX process. Thus, the 
pointer in the .DTI record references a record 
number in the .IDX file, the contents of which point 
to the first byte of the appropriate frame in the 
.ACP file. The .DTI file is synchronized. It is one 
of several intermediate files produced on the way to 


the final MRG file, which contains both a descrip- 
tion of each fixation and of the display object of the 
fixation as well as the distance between lookpoint 
and object. 

The synchronizing algorithm is based on the 
following logic. Record i of the SCN file points to 
record m of the DAT file and record i plus one of 
the .SCN file points to record n of the .DAT file. 
When record i of the SCN was recorded, DAT 
record m was already complete and record m plus 
one was already started. Therefore, both of those 
records should be assigned to a previous frame of 
the .ACP file. This would include records 7123 and 
7124 in the example above. The records m plus 2 to 
n plus 1 are assigned to the current frame i of the 
.ACP file, records 7125 through 7136 in the exam- 
ple above. In a case where n equals m, no .DAT 
records are assigned to ACP frame i. If n equals m 
plus 1, then only .DAT record n plus 1 is assigned 
to the current frame i of the ACP file. This algo- 
rithm has the advantage of treating every frame 
individually rather than accumulating elapsed time 
(and error) from the beginning of the DAT file. 

Removing bad records. Once the files were 
synchronized the data could be cleaned up by 
removing bad records, combining adjacent records, 
and eliminating some noise records. 

It was suspected that faults in the acquisition 
system caused some of the oculometer data records 
(.DAT) to be inaccurate. Occasional computer 
interruptions resulted in unusually long records. 
Extensive logs were kept by several observers dur- 
ing the testing and were combined afterwards into 
a single test log. Those logs were used together 
with automatic scanning (the SRCHDAT process) of 
all DAT files, which was followed by selective 
manual scanning (the DMPDAT or DMPDT1 proc- 
ess) of sections of the files to identify bad records. 
Less than 0.02% of the million or so DAT records 
were marked as suspicious, and more than half of 
those were associated with 2 subjects. Also more 
than half of the suspicious records were associated 
with logged problems. Only 20 of those records, all 
of which were associated with logged oculometer 
problems, were excised from the files. It was 
thought that the remainder of the long records 
would have a negligible effect on the study. Once 
identified, the processor CUT20 was used to excise 
the records from the files. As an aside, it should be 
emphasized that the capability to quickly and con- 
veniently examine the data files is very important 
in these studies. Mistakes later in the process can 
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probably be corrected without too much effort, but 
problems in data acquisition usually can only be 
corrected by re-testing the subjects, a very expen- 
sive prospect. It behooves the analyst to keep his 
eye on the data and to use quick look analyses to 
verify its integrity. 

Filtering. Filtering was used to eliminate 
hardware/operator and human behavior induced 
problems in the data. Four filters were applied. 
Filters 1 through 3 consisted of combining certain 
sequences into a single event or record much like 
what was done during the recording process. The 
fourth filter just removed some out-of-track noise. 
The order that the filters were applied is signifi- 
cant. The salient features of the four filters are 
described here. More detail on the filters can be 
found in the source listing of the process FILTER 1 
in Appendix C. 

Filter 1 reads three consecutive records from 
the .DTI file into memory arrays A, B, and C. The 
condition for filtering is both A and B are in-track, 
the duration of B is one sample time (1/30 seconds), 
and C is not in-track. If the condition is true, add 1 
to A's dwell time and store it in the scratch file 
.DT2, then advance C into A and read the next 2 
records from DTI into B and C. Restart the 
process by again testing for the condition. If the 
condition tested false, store A into .DT2, advance B 
and C into A and B and read the next record from 
.DTI into C. Restart the process by again testing 
the condition. There are, of course, tests for end of 
data for which appropriate action is taken. When 
finished the new lookpoint file is .DT2. Filter 1 is 
relatively unimportant and was included to com- 
pensate for a small problem in the collection soft- 
ware. It merely combines two consecutive in-track 
records, the second of which is only 1/30 of a second 
long. 

The second filtering process (filters 2 and 3) 
reads three consecutive records from the DT2 file 
into memory arrays A, B, and C. Condition 1 for 
filtering is the time duration of B is less than 13 
counts, A and C are both in-track, and the display 
distance between A and C is 1/2 inch or less. 
Condition 2 is that either B is out-of-track or the 
duration of B is less than four sample periods. If 
either condition is not met, filters 2 and 3 are not 
applied and the process proceeds to test for filter 4. 
After applying filter 4, the process returns to test a 
new sequence, A, B, and C for filter 2 and 3 again. 
In this manner, the process advances through the 
entire file. If conditions 1 and 2 are both true, then 


either filter 2 or 3 is applied depending whether or 
not the duration of B exceeds three sample times 
(i.e., B is a blink). Both filters 2 and 3 combine the 
three records into a single record. The resulting 
lookpoint coordinates and pupil diameter are an 
average of those from A and C, weighted by their 
respective dwell times. The resulting dwell time for 
the combined record is either the sum of the dwell 
times of the three records (filter 2) or, if record B is 
a blink (out-of-track and of duration 4-12 sample 
times), the sum of the A and C dwell times only 
(filter 3). This resulting fixation is stored in A and 
two new records are read from the .DT2 file into B 
and C. The filter 2 and 3 process is then continued 
by testing this new sequence for condition 1 and 2. 
Again, there are tests for end of data for which 
appropriate action is taken. Filters 2 and 3 com- 
bine three records that appear to be a single fixa- 
tion interrupted by a blink or a noise record into a 
single record. 

When the process branches to filter 4, the A, B, 
and C arrays contain a sequence that did not qual- 
ify for filter 2 or 3 processing. If the duration of A 
is greater than three, A is stored on the .DT3 file, 
the final output of the successive filtering process. 
Otherwise A is discarded. In either case, B and C 
are moved to A and B, and a new record is read 
from the .DT2 file into C. Control is then moved 
back to the condition 1 and 2 tests for filter 2 and 3. 
Filter 4 removes all remaining records with dura- 
tion less than four that have already survived fil- 
ters 1 through 3. 

The application of those filters significantly 
reduced the number of records that had to be 
processed further. 

Prior to filtering: The average number of 

records per second for the 96 runs (12 subjects by 8 
treatments) was 2.7 with a standard deviation 0.9 
records per second. This resulted in ,SCN files with 
lengths averaging (within controller but across the 
8 treatments) from a low of 6,173 records to a high 
of 17,076. During 81.5% of the recording time, the 
subjects were in-track. The average length of in- 
track records was 0.44 seconds. 

After filtering: The average number of records 
per second for the 96 runs (12 subjects by 8 treat- 
ments) was 1.5 with a standard deviation 0.3 
records per second. This resulted in .SCN files with 
lengths from a low of 3579 records to a high of 8789. 
During 84.1% of the recording time, the subjects 
were in-track. The average length of in-track 
records was 0.73 seconds. 
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2.4 Target Identification 

After associating each fixation with a particu- 
lar TIMER simulation update frame as discussed 
above in Section 2.3, it is necessary to determine 
what the subject controller viewed during that 
image frame. This was done to learn something 
about subject eye scan behavior and in turn about 
the merits of proposed changes in the display. 
Normally there are about ten aircraft on the display 
at any time. While watching the test, with the 
computed lookpoint superimposed on the repeater 
displays, an observer is usually impressed by both 
the static and dynamic accuracy of the oculometer. 
The lookpoint swiftly traverses from object to 
object, pausing an average of less than a second on 
each. Just as the accuracy is obvious, so to is the 
problem with static resolution. Often the lookpoint 
will be slightly offset from the object. The observer 
can tell what the subject is looking at even though 
the projected lookpoint is not always right on the 
target. This type of offset is not necessarily due to 
anomalies in the oculometer system. Since the 
fovea is one degree wide, the human vision can reg- 
ister an item of interest without focusing directly on 
the object. The goal in the data analysis, therefore, 
is to find the nearest object to the lookpoint. The 
offset varies with time, subject, and position on the 
display, and it has a definite random component. It 
is minimized by careful calibration before and dur- 
ing the test. It should always be considered in the 
design of the experiment. 

The word hit in this section is shorthand for 
associating a lookpoint with a screen object. A hit 
occurs when the distance between an object and a 
lookpoint is less than 0.57 screen inches, which for 
the FASA study was equivalent to about 1.2 nauti- 
cal miles in the terminal area. The 0.57 inches was 
derived from our estimates of oculometer offset 
errors. If several hits occur on a given radar sweep, 
the lookpoint is usually associated with the closest 
object. The exception was the centerline slot 
marker and graphic marker runs, when the look- 
point was close to both the aircraft and aid. In this 
case, the lookpoint was assigned to a combined 
category, aircraft and aid, rather than to the closest 
of the two. This approach had more meaning in the 
context of the FASA study. Each aircraft on the 
display has an associated position symbol, normally 
the letter F, connected to a data block by a leader 
(reference 1). The nominal position of the data 
block (the middle of the second line) is about 3/4 of 
an inch from the aircraft position symbol. During 


the DICE runs, two lines of DICE information are 
added to the bottom of the data block and they are 
closer to the aircraft symbol than the normal data 
block text fields. Therefore, there is an area of 
intersection between the data block and aircraft 
position symbol hit circles. The lookpoint is 
assigned to the closer of the two. The third class of 
nonstationary objects on the display, in addition to 
the aircraft position symbol and data block, are the 
final approach spacing aids. Stationary objects on 
the display assigned as targets include navigational 
aids, the imaginary downwind flight legs (which are 
not displayed), the final approach course centerline, 
and the scheduled arrival sequence list in the upper 
right corner of the display. 

If no assignment could be made after searching 
through the display, the object of the lookpoint was 
designated as No ID. Less than ten percent (on 
average) of the in-track fixations were associated 
with the No ID object class. Although fixations 
assigned to this object class represented a small 
percentage of the total fixations, the No ID look- 
points were displayed by themselves in hopes of 
discerning a pattern. They appeared randomly dis- 
tributed over the area of interest. In addition, the 
group had a markedly lower average fixation time. 
It appears that this class of objects may be indica- 
tive of a characteristic of deliberate scanning 
behavior rather than a reflection of the eye scan- 
ning system accuracy. 

Target identification is implemented by the 
program FILLMRG. The source code for that pro- 
gram is given in Appendix C. Figure B9 (Appendix 
B) is a block diagram of the process. The skeletal 
(formatted but not yet filled in) .MRG file is the 
product of CRE8MRG1 shown in figure B2. It con- 
tains the lookpoint data and the simulation output 
record pointer. FILLMRG adds the target informa- 
tion extracted from the .ACP file. Both the MRG 
and .ACP records are discussed and illustrated in 
Appendix A. Since the MRG record is both an 
input and output of FILLMRG, (figure B9), for 
safety, the output file is temporarily named as a 
DUM file. When the process is complete, all the 
.DUM files are renamed to .MRG files. This simple 
device is more tolerant of error. The MRG files are 
the primary eye-scanning output file. The cross 
check scan files (figure B5) and almost all the scan- 
ning statistics are derived from the information on 
these MRG files. 

Figures 9 through 14 describe the flow through 
the FILLMRG program. Figure 9 describes the 


19 



main program. As is true in many of the programs 
written for this study, FILLMRG is list driven. File 
1 is a list of test runs. Each run is processed until 
the list is exhausted. Usually the list would have 
12 entries, one for each of the subject-controllers for 
a given test configuration. The subprogram 
SEARCH is called once per list entry and it 
processes a complete .MRG file. The flow logic for 
SEARCH is shown in figure 10. It uses 
TARGETSET once per simulation update to set up 
a list of possible targets of the fixation. SEARCH 
uses subprogram PICK to select a target from the 
list. PICK is called once for each in-track fixation. 
Note that the lookpoint coordinates are transformed 
to the simulation reference frame before the search 
begins. When a hit is made, the coordinates of the 
target object are transformed back to display coor- 
dinates for storage on the .DUM file. Thus, all the 
coordinates on the .MRG files are in the display 
frame of reference. If PICK does not find an object 
sufficiently close to the lookpoint, several other 
objects are checked: the final approach course cen- 
terline, the downwind lines, the scheduled aircraft 
list and the outer marker. If the closest object 
(from PICK) is a data block but it is not a hit, 
SEARCH tests again requiring only that the X and 
Y distances both be less than 0.57 inches. This 
minor relaxation substitutes a square with sides of 
1.14 inches for a circle of diameter 1.14 inches and 
is used only with the data block. If subroutine 
SEARCH fails to find an object close enough to the 
lookpoint, the No ID designator is used and also 
stored with the lookpoint data in the .DUM file. 
Although not shown in the logic flow diagrams, out- 
of-track records are copied from the input file to the 
output file without processing. 

TARGETSET (figure 11) makes a list of targets 
to be used by PICK. Knowledge of the structure of 
.ACP file record as illustrated and described in 
Appendix A is helpful in understanding 
TARGETSET. The first group on the list is all the 
displayed aircraft. They are followed by the group 
of data blocks, one block for each aircraft. For a 
graphic marker or centerline slot marker run, the 
data blocks are followed by a list of aids visible on 
that particular sweep. The list format varies with 
the type of aid. For the DICE runs, no entries are 
added to the list, but both aircraft and data block 
entries are modified for a particular aircraft if its 
DICE is active on the display. Finally, ten static 
navigational aids are added to the list. Their des- 
ignators and positions can be found on the second 
page of the FILLMRG source program in Appendix 


C. They are in the arrays STATID, STATXS, and 
STATYS. The locations are given in the simulation 
frame of reference (nautical miles). As an aside, 
some other interesting constants can be found on 
the first page of the FILLMRG listing. SF1 = .472 
is the scale factor indicating .472 inches per nauti- 
cal mile. RUNOFF 1 is the offset of the runway 
from the Y simulation axis (in nautical miles). 
Alpha is the angle between the two coordinate sys- 
tems, etc. 

Subprogram PICK (figure 12) chooses an object 
from the TARGETSET list. The calling parameter 
K is the list ordinal of the closest object. If K is 
returned as zero, the subprogram could not find an 
object within three nautical miles. For a CSM or 
GM run, if both the aircraft and aid are within 1.2 
nautical miles of the lookpoint, the type of the clos- 
est object is changed to a combination of aircraft 
and aid. 

The FASA study showed that the most popular 
target was the data block, followed by the aircraft 
symbol and then by the aid. Average fixation times 
varied widely by object. Time spent on static tar- 
gets was very low. 

2.6 Cross Check Scanning 

Previous researchers (reference 3) have concluded 
that there is valuable information in scan sequenc- 
ing behavior. The argument is that the pattern of 
transitions from object to object contains informa- 
tion related to relative mental loading. In this 
approach one searches the pattern for order or for 
repetitive behavior. The lack of order is referred to 
as entropy, which is thought to be inversely propor- 
tional to mental work load, i.e., higher entropy 
indicates less workload. Reference 3 suggests com- 
posing a transition matrix from the scan time his- 
tory and then comparing the entropy of the matri- 
ces for the various treatments. The transition 
matrix is square (n x n) where n is the number of 
objects in the display. Element (i,k) would be pro- 
portional to the number of transitions measured 
between object i and object k. Element (k,i) would 
be different and would be proportional to the num- 
ber of scan transitions from object k to object i. 

The above model and associated hypothesis 
was not used in the FASA study. However, it was 
agreed that scan transition behavior should be 
included in the FASA analysis. Complicating fac- 
tors in this study were that the display changed as 
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Program FILLMRG 



Find screen object corresponding to each look point 


Figure 9. Flowchart of main target identification program FILLMRG. 









FILLMRG/SEARCH 


Yes 



Target not identified 

Search List of candidate Targets 


/ 


/ 
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Figure 10. Flowchart of object search program used in target identification. 








FILLMRG/TARGETSET 



Compose Target List for Particular Radar Sweep 


Figure 11. Flowchart of target tabulation program used in target 
identification. 














Choosing the Target 


Figure 12. Flowchart of object and target association program used in 
target identification. 










CROSS1 


Start 



IDENTIFY and STORE CROSS-CHECK-SCAN SEQUENCE 


Figure 13. Flowchart of overall logic used in identifying and saving cross- 
check scan sequences. 
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CR0SS1 / FINDAB 


Start .MRG file 



CCS SEQUENCES FROM .MRG FILE. 

Figure 14. Flowchart of subprogram for determining the limits of a cross 
check scan sequence. 








CROSS1 / FINDAB 



CCS SEQUENCES FROM .MRG FILE (Continued). 

Figure 14 (Continued). 
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a function of time and that at any time only a sub- 
set of all the objects were on the display. 

While considering the transition matrix ap- 
proach to the FASA unique display requirements, 
the team consulted with Dr. Randall Harris of the 
NASA Langley Research Center, an expert in eye 
scanning analysis. He suggested a simpler and 
arguably more powerful approach using cross check 
scans (CCS's). He had tested the approach with 
good results but had not had time to further explore 
it or publish his preliminary results. Cross check 
scanning was incorporated into the FASA study. 

The working model formulated by the FASA 
group was that the controller performed cross-check 
scans to compare positions of aircraft to other air- 
craft as well as to geographical (or other significant) 
points on the display. The normal purpose of cross- 
checking is to either perform some control action or 
to monitor separation. The hypothesis was that a 
reduction in the number of cross-checks indicated a 
reduction in the amount of comparisons or judg- 
ments required to properly time a control action, 
assuming the amount of monitoring remained rela- 
tively constant. 

For the purposes of the FASA study, a CCS is 
defined for no more than two objects, say A and B. 
Any two screen objects can be used in a particular 
CCS. A single scan transition from A to B (or B to 
A, the direction of the transition was not a factor) is 
termed a second order CCS. A cross check scan is 
an uninterrupted sequence of fixations alternating 
between object A and object B. Its order is one 
more than the number of transitions between the 
two objects. For example, the sequence A-A-B-A-A 
would be a CCS of order 3 (i.e., 2 transitions). The 
words uninterrupted sequence need some explana- 
tion. A third object will break the sequence. Thus, 
the sequence A-B-C-A would be considered three 
second order CCS sequences: A-B, B-C, and C-A. C 
breaks the A-B sequence and A breaks the B-C 
sequence. This example illustrates that a given 
fixation can belong to two CCS sequences, which 
complicates the computation of total time used in 
all CCS sequences. The other two types of records 
on the .MRG file that can interrupt a CCS are a 
long (>12/30 seconds) out-of-track or a long unas- 
signed (No ID) fixation. 

The program CROSS 1 writes the .CCS File. A 
block diagram of the process is shown in figure B5 
of Appendix B. The .MRG files were searched for 
CCS sequences and each record of the .CCS files 
describes one such sequence. The .CCS record itself 


is described in Appendix A. It contains the ordinals 
of the beginning and ending .MRG file records for 
the sequence. It also contains the number of 
transitions in the sequence and the total time (in 
1/30 seconds). Other fields contain information on 
the two objects involved in the sequence. The 
CROSS 1 source listing is given in Appendix C. 

Figures 13 and 14 show the logic flow in 
CROSS 1 for identifying and storing CCS sequences. 
The diagram for the subroutine FINDAB, (figure 
14), presents the logic for identifying or defining 
the limits of the sequence. The diagram for 
CROSS 1, (figure 13) shows the overall logic flow. 
The inner loop works its way through a single 
MRG file. The outer loop goes through a list of test 
runs. In practice, the list usually contains the 12 
subject controller runs for a given treatment. 

FINDAB (figure 14) is composed of three serial 
stages. The first stage finds a suitable starting 
fixation, A. Only an end of file will cause this 
search to end without a hit. Neither an out-of-track 
nor a No ID is acceptable for A. The second stage 
searches for the second object of the pair. A long 
out-of-track or long No ID record will cause the 
search to end unsuccessfully. That is, a CCS 
sequence was not found. The search ignores short 
out-of-tracks and short No ID's. If and when a 
valid second object is found for the sequence, the 
subprogram proceeds to the third stage. At that 
point a CCS sequence of order 2 has been identified. 
The purpose of the third stage is to determine 
whether the sequence is of a higher order. The 
third stage (figure 14, continued) keeps track of 
transitions between A and B until it encounters one 
of three types of .MRG file records: a third object C, 
a long out-of-track, or a long No ID record. After 
exiting from the third stage the CCS sequence is 
recorded. 

It would not be difficult to extend the logic to 
more than two objects corresponding to the more 
complex scan patterns observed to be used by the 
subject controllers. This was not done at this time, 
however, partially because of the difficulty in inter- 
preting the results. 

The data gathered on the .CCS files were sta- 
tistically analyzed with respect to the number of 
higher order CCS sequences associated with the 
eight treatments. The data were broken down by 
type of objects in the pair and zone pairs. 
Reference 1 presents the zone pair results. 
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2.6 Display Zones 

Earlier discussions focused on what the subject 
controllers were viewing. By defining different 
segments of the aircraft normal approach pattern, 
insight was gained as to where the subject was 
looking. Data were gathered on measures such as 
cross-check scans between zones and time spent 
within each zone. Figure 15 indicates the areas of 
the display associated with the zones. As imple- 
mented, the zone associated with an aircraft has to 
do with what part of the pattern it is executing 
rather than solely on its position. Thus, its heading 
gets into the calculation too. At the corners of the 
pattern, the heading distinguishes one zone from 
another depending on the progress of the turn. 
Also the base leg does not intersect the final at a 
fixed point but moves (trombones) in and out as re- 
quired by the traffic. Data blocks and aids are 
assigned to the same zone as their corresponding 
aircraft except that centerline slot markers are 
always in zone 1. Because of the chosen imple- 
mentation, some static objects such as navigational 
aids do not have an associated zone. As a conse- 
quence, the percentage of in-track time broken 
down by zones for a particular controller and type 
of aid do not sum to 100%. The time not included 
corresponds to objects that do not have an associ- 
ated zone. 

3.0 Description of Statistics 

The eye scan portion of the FASA study de- 
scribed in references 1 and 2 relied, in part, on 
statistical analyses of the merge ( MRG) files and 
cross check scan (.CCS) files, both of which are 
discussed in the appendices and in sections 2.4 and 
2.5 above. Some statistics were derived by custom 
programs such as A1HIST (figure B8), SEQNCE1 
(figure B15) or SEQNCE2 (figure B16). Other sta- 
tistics were gathered using a standard data base 
program. In both cases, the statistics were put into 
spreadsheet tables and plotted for reporting pur- 
poses. 

From the beginning, the FASA study was 
designed to use a repeated measure analysis of 
variance (ANOVA) approach in order to establish 
the statistical significance of measured differences 
(in average values) as a function of the two factors 
of interest: display format and approach -pattern 
speed. The repeated measure ANOVA approach 
has the advantage of compensating for the wide 
variation among controllers. It was not unusual 
that the cross controller differences (within treat- 


ment) were larger than the cross treatment (within 
subject) differences. The ANOVA calls for all sub- 
jects to test on all treatments and, in effect, uses 
each subject’s average performance as his own con- 
trol. In the FASA study, several commercially 
available statistical analyses programs were used. 
The oculometer data analysis was done principally 
using the SYSTAT (SYSTAT Inc.) program, which 
was checked against other ANOVA programs. 
These programs compute the F statistic and prob- 
ability (P) that the averages, measured for the vari- 
ous treatments, are equal. If the probability is 
lower than the preset level of significance, the 
hypothesis of equality is rejected, and the treatment 
is shown to have a significant effect. The ANOVA 
demonstrated that the differences associated with 
the different display formats were significant and 
not just statistical noise. 

The form of the data tables (1 through 9) as pre- 
sented in this report is the same as the form used to 
submit the data to the ANOVA programs. The 
number of rows was always twelve representing the 
number of controllers. The number of columns 
represented the number of treatments being com- 
pared. Most of the statistics computed for the 
FASA study used a 12X4 table for the 170 knot 
approach, a 12X4 table for the 210 knot approach, 
and the two combined in a 12X8 table to test the 
significance of the speed effect only. If the 12X4 
ANOVA (170 or 210) showed significance (P<0.05), 
then the individual aids were contrasted against 
each other in a post hoc test using the Fisher PLSD 
method. The results of those tests were reported in 
reference 1. Tables 1, 4, and 7 have this straight 
forward 12X8 form. In table 3, four separate 12X8 
tables were formed, one for each zone using both 
pattern speeds. Likewise in table 2, a 12x8 data 
block table was formed using the two 12X4 tables as 
shown. The target types Aid and Aid & A/C in table 
2 had different dimensions (12X6 and 12X4 respec- 
tively), because the aid w r as not used in the manual 
case and the combination Aid & A/C was only 
defined for the graphic marker and centerline slot 
marker runs. 

These statistical tables were used (although 
presented in a different form) in references 1 and 2 
to support to support the FASA research. They are 
presented here for completeness and to illustrate 
the methodology. 

Three measures of lookpoint behavior as func- 
tions of display format are included in table sets 1 
to 9: in-track time, dwell time, and frequency of 
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DOWNWIND (Zone 3) 
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Figure 16 . Final controller display zones of interest defined for the FASA study. 



high-order cross-check scans. The first three table 
sets deal with the percentage of total time that the 
subject controller was being tracked by the oculo- 
meter, the total in-track time classified by types of 
gaze object (such as data block), and also by display 
zones. 

Average dwell times for each controller are 
tabulated in tables 4 through 6. The totals in table 
4 are classified by display object in table set 5, and 
by zones in table set 6. Tables 7 through 9 tally the 
number of high order cross check scans (of order 4 
or greater) by controller. Section 2.5, above, has an 
extended explanation of cross check scans. Table 7 
gives overall sums for a particular controller and 


treatment. In tables 8 and 9, the overall sums are 
classified by target pairs and zone pairs. 

The three types of oculometer statistics (total 
time, dwell time, and frequency of cross check 
scans) were successfully used to discriminate 
between the tested display-format/pattern-speed 
combinations, and they generally agreed with and 
supported conclusions drawn from the other types 
of measurements made in the FASA study. The 
cross check scan analysis showed the most signifi- 
cance of the three. Other possibly interesting sta- 
tistics that might be examined in future studies are 
the average duration of cross check scans by order 
and frequency of cross check scans defined on more 
than two (perhaps as many as five) distinct objects. 


Controller 

In-Track as Percent of Total Time 1 

Test 

170 Kts Procedure 

I 210 Kts Procedure I 

Subject 

MANUAL 

GRAPHIC 

DICE 

CSM 

MANUAL 

GRAPHIC 

DICE 

CSM 

1 

75.6 

72.7 

76.7 

75.2 

66.5 

73.4 

80.6 

68.4 

2 

84.9 

83.6 

81.8 

88.0 

85.6 

81.9 

79.0 

93.1 

3 

88.7 

83.7 

83.9 

86.4 

84.7 

84.2 

87.9 

80.9 

4 

84.4 

81.2 

79.1 

82.3 

67.5 

80.2 

79.7 

78.0 

5 

88.3 

81.6 

88.5 

88.9 

91.3 

87.1 

88.6 

87.3 

6 

83.2 

55.6 

59.3 

67.3 

82.5 

69.0 

77.2 

82.9 

7 

94.1 

84.1 

92.7 

92.6 

90.7 

90.9 

89.3 

93.9 

8 

90.1 

91.6 

94.3 

90.4 

95.3 

93.2 

93.6 

95.0 

9 

87.6 

87.4 

88.7 

86.4 

91.3 

89.2 

89.1 

91.2 

10 

87.2 

83.6 

86.8 

85.6 

87.3 

90.4 

87.6 

91.1 

11 

75.9 

75.3 

72.2 

80.7 

84.8 

83.4 

75.2 

78.2 

12 

80.7 

83.9 

81.6 

90.3 

89.5 

86.2 

86.4 

91.0 

Mean 

85.0 

80.3 

82.1 

84.5 

84.8 

84.1 

84.5 

85.9 

St Dev 

5.6 

9.2 

9.7 

7.2 

9.0 

7.2 

5.8 

8.2 


Table 1. Percentage of total test times that each subject was tracked by the 
oculometer in the FASA study. 
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Percent of In-Track Time by Targets, 170 Knot Procedure 

Test I Data Block A/C Aid 

Subject MN17 GR17 DC17 SL17 MN17 GR17 DC17 SL17 MN17 GR17 PCI 7 SL17 

1 41.7 40.2 38.6 42.1 20.7 16.5 27.1 17.1 0.0 11.7 18.2 9.6 

2 45.1 31 0 32.9 36.0 39.2 33.2 32.4 19.1 0.0 7.8 21.0 10.8 

3 52.1 35.5 37.3 36.7 37.8 23.6 34.2 25.3 0.0 12.2 17.7 9.2 

4 44.5 39.8 29.8 39.9 36.5 17.0 36.8 24.6 0.0 12.9 17.4 6.3 

5 34.8 36.5 44.9 34.8 42.9 22.9 18.4 28.6 0.0 12.7 28 5 6.1 

6 57.1 37.3 32.5 42.9 29.2 24.1 33.2 22.2 0.0 8.6 17.4 8.3 

7 50.1 46.0 30.4 46.2 31.1 18.3 36.0 14.6 0.0 9.3 19.9 11.4 

8 53.1 38.4 42.3 44.0 36.2 26.0 26.8 20.8 0.0 8.1 24.6 8.5 

9 35.2 25.2 16.4 16.2 44.8 29.2 57.2 33.2 0.0 12.8 7.9 8.5 

10 52.9 45.8 36.5 46.9 36.2 20.5 30.6 23.9 0.0 9.0 22.2 8.2 

11 30.4 34.3 30.6 29.1 46.0 21.9 32.5 24.8 0.0 11.3 17.3 10.0 

12 51.2 43.3 40.2 39.5 27.0 15.1 21.6 18.5 0.0 13.2 23.0 11.0 

Mean" 45.7 37.8 34.4 37^8 35.6 22.4 32.2 22.7 0.0 10.8 19.6 9.0 

St Dev 8.2 5.7 7.2 8.2 72 5.1 9.2 4.9 1 0.0 2.0 4.8 1.6 


Percent of In-Track Time by Targets, 170 Knot Procedure (Cont.) 


Test 


Aid & A/C 


Other 


Not Identified 

Subject 

MN17 GR17 DC17 SL17|MN17 GR17 DC17 

SL17 

MN17 GR17 DC17 

SL17 

1 

0.0 

13.3 

0.0 

15.0 18.8 

12.9 

9.9 

6.7 

18.8 

5.2 

6.3 

9.6 

2 

0.0 

16.6 

0.0 

21.4 9.5 

6.6 

7.6 

5.8 

6.2 

4.8 

6.2 

7.0 

3 

0.0 

21.0 

0.0 

21.9 7.4 

5.1 

5.4 

3.2 

2.8 

2.7 

5.4 

3.7 

4 

0.0 

15.3 

0.0 

13.2 10.5 

8.0 

8.3 

7.7 

8.4 

7.0 

7.7 

8.3 

5 

0.0 

15.6 

0.0 

16.9 12.6 

7.1 

6.0 

7.4 

9.7 

5.1 

2.2 

6.2 

6 

0.0 

10.8 

0.0 

9.9 9.5 

11.1 

9.0 

8.8 

4.2 

8.1 

7.9 

7.9 

7 

0.0 

15.7 

0.0 

11.7 12.9 

7.0 

8.5 

9.4 

5.9 

3.7 

5.2 

6.7 

8 

0.0 

19.0 

0.0 

20.1 6.8 

7.4 

5.4 

4.5 

4.0 

1.1 

1.0 

2.2 

9 

0.0 

18.7 

0.0 

26.2 11.5 

7.7 

9.4 

8.1 

8.5 

6.5 

9.0 

7.8 

10 

0.0 

15.0 

0.0 

9.8 6.8 

5.8 

5.9 

6.6 

4.1 

3.9 

4.8 

4.8 

11 

0.0 

12.3 

0.0 

18.8 12.8 

10.0 

11.2 

10.2 

10.8 

10.2 

8.4 

7.1 

12 

0.0 

12.9 

0.0 

9.0 10.3 

6.8 

7.8 

9.3 

11.5 

8.8 

7.4 

13.0 

Mean 

0.0 

15.5 

0.0 

16.2 10.8 

8.0 

7.9 

7.3 

7.9 

5.6 

6.0 

7.0 

St Dev 

0.0 

2.9 

0.0 

5.4 3.2 

2.2 

1.8 

2.0 

4.3 

2.5 

2.3 

2.7 


Table 2a. Percentages of in-track time allocated to each type of gaze object 

identified for the FASA study, 170 knot approach-pattern-speed 

procedure. 
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Percent of In-Track Time by Targets, 210 Knot Procedure 1 


Test 

Subject 

MN21 

Data Block 

GR21 DC21 SL21 

MN21 

A/C 

GR21 DC21 SL21 

MN21 

Aid 

GR21 DC21 

SL21 

1 

51.1 

34.6 

27.3 39.7 

24.4 

15.5 

31.7 13.2 

0.0 

17.1 

25.8 

13.1 

2 

57.9 

22.5 

31.5 30.3 

27.1 

17.4 

25.1 22.2 

0.0 

16.0 

28.3 

11.3 

3 

29.2 

37.8 

33.5 25.8 

55.3 

15.6 

25.5 27.6 

0.0 

14.2 

24.7 

8.3 

4 

44.6 

33.8 

29.9 49.3 

24.9 

12.7 

24.3 15.4 

0.0 

9.7 

25.9 

8.3 

5 

41.7 

21.9 

22.6 26.4 

38.6 

30.3 

33.2 29.8 

0.0 

14.6 

36.3 

9.6 

6 

60.4 

40.6 

29.2 44.2 

28.2 

14.0 

30.1 20.3 

0.0 

15.7 

29.1 

9.1 

7 

45.5 

39.1 

18.8 40.6 

32.4 

15.0 

35.5 22.9 

0.0 

15.2 

32.1 

7.4 

8 

54.1 

31.6 

29.7 32.1 

36.0 

21.2 

24.2 31.5 

0.0 

12.6 

39.2 

8.8 

9 

46.6 

19.3 

16.5 23.1 

38.4 

18.3 

45.5 25.2 

0.0 

23.5 

21.6 

10.0 

10 

48.7 

42.6 

28.9 32.6 

36.0 

18.0 

28.3 27.2 

0.0 

12.3 

35.2 

12.0 

11 

39.5 

29.4 

16.3 23.5 

32.5 

25.0 

49.5 23.0 

0.0 

12.9 

18.5 

9.2 

12 

54.6 

40.1 

28.5 34.0 

23.5 

13.5 

26.0 19.5 

0.0 

14.5 

32.1 

15.0 

Mean 

47.8 

32.8 

26.1 33.5 

33.1 

18.0 

31.6 23.1 

0.0 

14.9 

29.1 

10.2 

St Dev 

8.3 

7.6 

5.7 8.1 

8.5 

5.0 

8.0 5.3 

0.0 

3.2 

5.9 

2.2 


| Percent of In-Track Time by targets, 210 Knot Procedure (Cont.) 

Test 

Subject 

MN21 

Aid & A/C 

GR21 DC21 

SL21 

MN21 

Other 

GR21 DC21 

SL21 

Not Identified 

MN21 GR21 DC21 SL21 

1 

0.0 

18.2 

0.0 

13.0 

12.0 

8.4 

8.1 

7.5 

12.5 

6.2 

7.1 

13.5 

2 

0.0 

26.7 

0.0 

24.1 

9.9 

10.5 

8.1 

4.3 

5.1 

6.8 

7.0 

7.9 

3 

0.0 

19.8 

0.0 

27.8 

11.0 

8.5 

8.5 

6.3 

4.5 

4.2 

7.8 

4.2 

4 

0.0 

12.0 

0.0 

9.9 

13.4 

10.7 

9.0 

6.2 

17.1 

21.2 

10.9 

11.0 

5 

0.0 

25.7 

0.0 

23.6 

13.2 

5.6 

5.5 

4.3 

6.6 

1.9 

2.5 

6.3 

6 

0.0 

15.5 

0.0 

9.9 

8.1 

7.7 

7.8 

9.4 

3.3 

6.5 

3.7 

7.2 

7 

0.0 

20.4 

0.0 

14.5 

15.9 

7.6 

8.6 

8.1 

6.2 

2.8 

5.0 

6.5 

8 

0.0 

29.1 

0.0 

22.2 

7.9 

4.7 

6.1 

3.4 

2.0 

0.7 

0.9 

2.1 

9 

0.0 

5.0 

0.0 

30.7 

10.6 

21.6 

10.3 

6.0 

4.4 

12.4 

6.2 

5.1 

10 

0.0 

20.5 

0.0 

18.1 

11.5 

4.8 

5.4 

5.9 

3.8 

1.9 

2.2 

4.2 

11 

0.0 

21.2 

0.0 

21.2 

15.4 

7.9 

9.4 

10.0 

12.7 

3.6 

6.3 

13.0 

12 

0.0 

19.3 

0.0 

15.6 

11.1 

6.6 

7.1 

5.6 

10.8 

6.1 

6.4 

10.2 

Mean 
St Dev 

0.0 

19.4 

0.0 

19.2 

11.7 

8.7 

7.8 

6.4 

7.4 

6.2 

5.5 

7.6 

0.0 

6.3 

0.0 

6.5 

2.4 

4.3 

1.5 

1.9 

4.5 

5.4 

2.7 

3.5 


Table 2b. Percentages of in-track time allocated to each type of gaze object 
identified for the FASA study 210 knot approach-pattern-speed 
procedure. 




Percent of In-Track Time by Zones, 170 Knot Procedure 


Test ZONE 1 

Subject MN GR PC SL 


1 52 45 46 62 

2 55 51 42 57 

3 56 42 45 65 

4 52 48 43 50 

5 48 45 49 50 

6 58 47 35 50 

7 56 42 40 59 

8 49 45 51 63 

9 49 42 42 61 

10 47 41 38 51 

1 1 49 46 46 60 

12 40 38 43 57 

Mean 51 44 43 57 

St Dev “ 5 3 4 5 


ZONE 2 ZONE 3 ZONE 4 

MN GR DC SL MN GR DC SL MN GR DC SL 

3 7 5 2 


15 

29 

29 

23 

26 

28 

37 

28 

29 

39 

32 

23 

30 

32 

34 

29 

31 

36 

35 

33 

26 

27 

35 

28 

23 

38 

39 

25 

30 

34 

32 

21 

27 

33 

29 

22 

25 

35 

38 

29 

28 

27 

25 

20 

33 

36 

33 

20 


8 

12 

13 

3 

11 

12 

13 

5 

7 

13 

14 

7 

7 

10 

13 

10 

10 

12 

10 

8 

8 

13 

19 

12 

9 

12 

12 

7 

13 

13 

11 

11 

10 

14 

16 

5 

19 

16 

15 

12 

9 

11 

14 

8 

12 

15 

13 

8 


27 33 33 25 I 10 


13 14 8 

2 2 3 


Percent of In-Track Time by Zones, 210 Knot Procedure 


Test ZONE 1 

Subject MN GR DC SL 


51 49 42 58 

60 49 52 62 

50 55 56 61 

46 40 53 56 

58 51 49 58 

61 45 52 60 

54 43 46 62 

65 53 53 64 

66 48 58 67 

10 61 54 48 60 

11 61 53 54 58 

12 58 51 51 64 


ZONE 2 


ZONE 3 


ZONE 4 



21 

29 

34 

20 

22 

28 

25 

23 

33 

21 

23 

25 

22 

21 

24 

24 

21 

34 

35 

24 

25 

32 

28 

22 

22 

37 

31 

22 

22 

30 

31 

18 

16 

21 

19 

18 

21 

30 

34 

25 

14 

28 

25 

16 

18 

29 

29 

17 


11 

12 

12 

6 

8 

13 

13 

4 

8 

17 

10 

7 

10 

14 

11 

7 

8 

9 

11 

9 

6 

12 

12 

8 

10 

10 

12 

6 

7 

11 

9 

12 

7 

12 

11 

7 

8 

11 

11 

8 

6 

11 

8 

8 

9 

10 

12 

6 

inmns 

m 

2 

1 

2 
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Controller 

Average Fixation Time for Session (In Seconds) 

Test 

170 Kts Procedure 

210 Kts Procedure 

Subject 

MANUAL 

GRAPHIC 

DICE 

CSM 

MANUAL 

GRAPHIC 

DICE 

CSM 

1 

0.66 

0.64 

0.67 

0.74 

0.61 

0.70 

0.95 

0.75 

2 

0.81 

0.83 

0.86 

0.91 

0.80 

0.87 

0.90 

1.07 

3 

0.68 

0.73 

0.72 

0.73 

0.72 

0.77 

0.92 

0.87 

4 

0.56 

0.52 

0.50 

0.56 

0.47 

0.39 

0.54 

0.69 

5 

0.71 

0.73 

0.86 

0.82 

0.78 

0.77 

0.86 

0.81 

6 

0.45 

0.40 

0.40 

0.49 

0.51 

0.61 

0.65 

0.66 

7 

0.84 

0.79 

0.78 

0.87 

0.81 

0.82 

0.91 

0.94 

8 

0.96 

1.21 

1.17 

1.04 

0.99 

1.24 

1.20 

1.23 

9 

0.67 

0.70 

0.65 

0.84 

0.68 

0.70 

0.72 

0.81 

10 

0.71 

0.65 

0.73 

0.64 

0.73 

0.73 

0.87 

0.73 

11 

0.44 

0.49 

0.50 

0.55 

0.48 

0.58 

0.54 

0.50 

12 

0.65 

0.59 

0.69 

0.56 

0.56 

0.61 

0.73 

0.64 

Mean 

0.68 

0.69 

0.71 

0.73 

0.68 

0.73 

0.82 

0.81 

St Dev 

0.14 

0.20 

0.19 

0.16 

0.15 

0.20 

0.18 

0.19 


Table 4. Average length of lookpoint fixations for each subject 




Fixation Time ByTargets-170 Knot Procedure 


Test 

Subject MN17 


0.72 

0.92 

0.72 

0.62 

0.78 

0.46 

0.86 

1.09 

0.70 

0.81 

0.46 

0.68 


0.74 


10 

11 

12 


Mean 
St Dev |0.17 


Data Block 

GR17 DC17 SL17 MN17 


0.64 0.51 0.78 0.67 
0.83 0.63 0.97 0.84 
0.70 0.52 0.77 0.69 
0.56 0.36 0.60 0.68 
0.80 0.59 0.92 0.76 
0.41 0.28 0.53 0.49 
0.83 0.52 0.95 0.88 
1.27 0.86 1.13 0.91 
0.63 0.40 0.69 0.73 
0.71 0.51 0.73 0.70 
0.52 0.38 0.57 0.54 
0.60 0.50 0.58 0.70 


0.71 0.51 0.77 0.72 


0.21 0.14 0.18 1 0.12 


A/C 

GR17 DC17 


0.66 0.72 
0.81 0.83 
0.73 0.80 
0.52 0.61 
0.69 0.73 
0.43 0.43 
0.71 0.79 
0.98 0.98 
0.68 0.78 
0.63 0.79 
0.53 0.53 
0.58 0.65 


0.66 0.72 


0.14 0.14 


SL17 


0.90 

1.02 

0.77 

0.69 

0.90 

0.58 

0.91 

0.92 

1.10 

0.72 

0.63 

0.62 


0.81 


0.16 


MN17 


n/a 

n/a 

n/a 

n/a 

n/a 

n/a 

n/a 

n/a 

n/a 

n/a 

n/a 

n/a 


n/a 


n/a 


Aid 

GR17 DC17 


0.72 1.15 
0.95 1.92 
0.80 1.12 
0.69 0.84 
0.81 1.61 
0.43 0.54 
0.85 1.28 
1.47 2.39 
0.97 0.93 
0.69 1.32 
0.60 0.87 
0.72 1.16 


0.81 1.26 


0.24 0.49 


SL17 


0.63 

0.73 

0.49 

0.61 

0.56 

0.44 

0.85 

0.76 

0.66 

0.48 

0.46 

0.57 


0.60 


0.12 


Fixation Time ByTargets-210 Knot Procedure 


Aid 


10 

11 

12 


Mean 



Data 1 

Block 



A/C 


MN21 

GR21 

DC21 

SL21 

MN21 

GR21 

DC21 

SL21 

0.69 

0.73 

0.56 

0.79 

0.66 

0.75 

1.09 

0.85 

0.92 

0.83 

0.56 

1.08 

0.74 

0.75 

0.92 

1.12 

0.73 

0.82 

0.58 

0.84 

0.79 

0.74 

0.92 

0.89 

0.53 

1.11 

0.36 

0.79 

0.56 

0.43 

0.60 

0.76 

0.82 

0.80 

0.40 

0.85 

0.83 

0.81 

0.78 

0.85 

0.53 

0.63 

0.36 

0.72 

0.57 

0.67 

0.69 

0.75 

0.87 

0.85 

0.40 

1.05 

0.85 

0.73 

0 93 

1.03 

1.09 

1.24 

0.61 

1.27 

0.93 

0.97 

0.95 

1.27 

0.67 

0.64 

0.33 

0.64 

0.82 

0.73 

0.81 

0.94 

0.82 

0.80 

0.45 

0.79 

0.74 

0.72 

0.86 

0.83 

0.51 

0.60 

0.28 

0.50 

0.55 

0.55 

0.60 

0.60 

0.59 

0.61 

0.37 

0.61 

0.59 

0.60 

0.75 

0.74 

0.73 

0.81 

0.44 

0.83 

0.72 

0.70 

0.83 

0.89 

0.17 

0.19 

0.11 

0.21 

0.12 

0.13 

0.14 

0.18 


0.89 1.45 
1.26 1.96 
0.90 1.01 
0.64 1.35 


0.21 0.36 


SL21 


0.76 

0.73 

0.59 

0.63 

0.54 

0.54 

0.69 

0.73 

0.62 

0.57 

0.41 

0.61 


0.62 


0.10 


Table 6. Average length of lookpoiut fixations associated with each type of gaze 
object. 
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1 Fixation Time ByTargets-170 Knot Procedure (Continued) I 

Test 

Subject 

MN17 

Aid & A/C 

GR17 DC17 

SL17 

MN17 

Not Identified 

GR17 DC17 

SL17 

1 

n/a 

0.86 

n/a 

1.15 

0.58 

0.34 

0.36 

0.47 

2 

n/a 

1.35 

n/a 

1.12 

0.46 

0.43 

0.48 

0.66 

3 

n/a 

1.05 

n/a 

1.22 

0.30 

0.32 

0.42 

0.31 

4 

n/a 

0.87 

n/a 

0.67 

0.30 

0.24 

0.25 

0.32 

5 

n/a 

0.90 

n/a 

0.95 

0.48 

0.44 

0.39 

0.55 

6 

n/a 

0 52 

n/a 

0.61 

0.26 

0.26 

0.26 

0.32 

7 

n/a 

1.18 

n/a 

0.89 

0.58 

0.38 

0.40 

0.58 

8 

n/a 

1.82 

n/a 

1.52 

0.55 

0.34 

0.33 

0.49 

9 

n/a 

1.22 

n/a 

1.24 

0.43 

0 39 

0.42 

0.45 

10 

n/a 

0.91 

n/a 

0.79 

0.34 

0.29 

0.35 

0.33 

11 

n/a 

0.70 

n/a 

0.71 

0.26 

0.29 

0.29 

0.31 

12 

n/a 

0.81 

n/a 

0.76 

0.50 

0.39 

0.46 

0.44 

Mean 
St Dev 

n/a 

1.02 

n/a 

0.97 

0.42 

0.34 

0.37 

0.44 

n/a 

0.33 

n/a 

0.27 

0.12 

0.06 

0.07 

0.11 


j Fixation Time ByTargets-210 Knot Procedure (Continued) 

Test 

Subject 

MN21 

Aid & A/C 

GR21 DC21 

SL21 

MN21 

Not Identified 

GR21 DC21 

SL21 

1 

n/a 

0.90 

n/a 

1.38 

0.42 

0.41 

0.49 

0.51 

2 

n/a 

1.42 

n/a 

2.00 

0.47 

0.48 

0.49 

0.70 

3 

n/a 

0.95 

n/a 

1.54 

0.37 

0.40 

0.65 

0.42 

4 

n/a 

0.56 

n/a 

0.80 

0.33 

0.29 

0.30 

0.46 

5 

n/a 

0.93 

n/a 

1.26 

0.53 

0.34 

0.39 

0.49 

6 

n/a 

0.80 

n/a 

1.05 

0.27 

0.36 

0.30 

0.42 

7 

n/a 

1.05 

n/a 

1.19 

0.51 

0.38 

0.45 

0.60 

8 

n/a 

1.77 

n/a 

1.94 

0.52 

0.36 

0.32 

0.62 

9 

n/a 

0.70 

n/a 

1.50 

0.36 

0.57 

0.42 

0.36 

10 

n/a 

0.96 

n/a 

1.04 

0.37 

0.27 

0.30 

0.34 

11 

n/a 

0.79 

n/a 

0.81 

0.30 

0.29 

0.29 

0.31 

12 

n/a 

0.81 

n/a 

1.06 

0.41 

0.40 

0.48 

0.46 

Mean 
St Dev 

n/a 

0.97 

n/a 

1.30 

0.41 

0.38 

0.41 

0.47 

n/a 

0.32 

n/a 

0.38 

0.08 

0.08 

0.11 

0.11 


Table 5 (Cont.). Average length of lookpoint fixations associated with each 
type of gaze object. 
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Table 6. Average length of lookpoiut fixations associated with each display zone. 




































Number of Cross Check Scans of Order 4 or 
Greater By Subject 

Test 

170 Kts Procedure 

210 Kts Procedure | 

Subject 

MAN 

GM 

DICE 

CSM 

MAN 

GM 

DICE 

CSM 

1 

69 

68 

88 

55 

72 

45 

83 

41 

2 

95 

34 

69 

66 

103 

42 

77 

73 

3 

200 

71 

116 

103 

146 

101 

122 

77 

4 

61 

57 

70 

55 

82 

53 

72 

46 

5 

88 

59 

87 

81 

116 

62 

128 

93 

6 

226 

43 

70 

54 

243 

46 

130 

114 

7 

144 

63 

131 

85 

151 

93 

135 

77 

8 

116 

65 

115 

105 

190 

85 

137 

95 

9 

38 

67 

92 

63 

161 

58 

89 

80 

10 

146 

80 

108 

102 

128 

87 

114 

110 

11 

113 

56 

65 

103 

145 

78 

97 

83 

12 

103 

66 

82 

105 

170 

60 

93 

113 

Mean 

116.6 

60.8 

91.1 

81.4 

142.3 

67.5 

106.4 

83.5 

St Dev 

55.2 

12.4 

21.8 

21.8 

47.3 

20.4 

23.8 

23.6 


Table 7. Total number of cross-check scans of order 4 or greater identified 
for each subject. 




[ Number of CCS'e of Order 4 or Greater by Target Paire, 170 Knot Procedure 1 

Teat 

Subject 

AIRCRAFT /AIRCRAFT 
MN17 GR17 DC17 SL17 

AC / OTHER TAG 
MN17 GR17 DC17 SL17 

TAG / TAG 

MN17 GR17 DC17 SL17 

1 

5 

2 

3 

1 

15 

5 

24 

7 

15 

20 

40 

9 

2 

18 

4 

10 

1 

22 

3 

22 

10 

41 

10 

25 

6 

3 

21 

6 

9 

7 

78 

8 

21 

12 

84 

20 

70 

9 

4 

9 

2 

7 

1 

16 

4 

21 

12 

15 

13 

29 

11 

5 

21 

7 

2 

3 

39 

10 

13 

19 

6 

7 

59 

9 

6 

32 

7 

14 

0 

31 

5 

14 

3 

118 

7 

22 

11 

7 

12 

3 

15 

0 

46 

7 

44 

17 

51 

24 

58 

24 

8 

21 

14 

22 

2 

41 

10 

17 

14 

41 

19 

61 

30 

9 

12 

19 

51 

4 

13 

11 

18 

5 

8 

6 

11 

2 

10 

29 

3 

13 

5 I 

46 

8 

22 

12 

54 

34 

47 

23 

11 

41 

6 

8 

3 

36 

12 

13 

21 

16 

17 

31 

8 

12 

13 

2 

8 

2 

13 

7 

10 

18 

55 

20 

49 

38 

Mean 

St Dev 

20 

6 

14 

2 

33 

8 

20 

13 

42 

16 

42 

15 

10 

5 

12 

2 

18 

3 

8 

5 

32 

8 

18 

11 


1 Number of CCS’s of Order 4 or Greater by Target Pairs, 210 Knot Procedure! 

Test 

Subject 

AIRCRAFT / AIRCRAFT 

MN21 GR21 DC21 SL21 

AC / OTHER TAG 
MN21 GR21 DC21 SL21 

TAG / TAG 
MN21 GR21 DC21 

SL21 

1 

5 

1 

8 

0 

21 

2 

18 

3 

29 

13 

38 

8 

2 

6 

2 

4 

0 

32 

0 

18 

7 

43 

2 

49 

2 

3 

70 

5 

4 

5 

33 

14 

28 

3 

25 

21 

69 

15 

4 

8 

1 

6 

0 

7 

1 

12 

8 

30 

11 

18 

15 

5 

15 

8 

19 

5 

56 

9 

28 

15 

16 

8 

57 

2 

6 

29 

1 

17 

2 ! 

37 

1 

19 

9 

150 

16 

72 

27 

7 

23 

2 

27 

6 

48 

5 

33 

15 

38 

19 

61 

19 

8 

42 

16 

22 

4 

50 

7 

20 

9 

73 

7 

82 

7 

9 

16 

2 

16 

3 

38 

1 

26 

5 

75 

2 

29 

10 

10 

17 

4 

9 

5 

39 

11 

11 

8 

48 

16 

77 

10 

11 

17 

9 

37 

2 

56 

14 

28 

9 

37 

11 

14 

2 

12 

8 

2 

4 

0 

29 

3 

19 

6 

106 

17 

59 

9 

Mean 
St Dev 

21 

4 

14 

3 

37 

6 

22 

8 

56 

12 

52 

11 

18 

4 

10 

2 

14 

5 

7 

4 

37 

6 

22 

7 


Table 8. Number of cross-check scans of order 4 or greater associated with pairs of 
gaze objects. 
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| No. of CCS'* of Order 4 or Greater by Target Pairs, 1 70 Knot Proc. (Cont.) j 

Test 

Subject 

TAG /AID 

MN17 GR17 DC17 SL17 

OTHER /AID 
MN17GR17 DC17 SL17 

OTHER ( 8 PAIRS ) 
MN17 GR17 DC17 SL17 

1 

n/a 

21 

n/a 

22 

n/a 

8 

n/a 

5 

34 

12 

21 

11 

2 

n/a 

7 

n/a 

23 

n/a 

5 

n/a 

20 

14 

5 

12 

6 

3 

n/a 

15 

n/a 

31 

n/a 

16 

n/a 

32 

17 

6 

16 

12 

4 

n/a 

12 

n/a 

9 

n/a 

10 

n/a 

7 

21 

16 

13 

15 

5 

n/a 

14 

n/a 

17 

n/a 

19 

n/a 

15 

22 

2 

13 

18 

6 

n/a 

10 

n/a 

13 

n/a 

2 

n/a 

13 

45 

12 

20 

14 

7 

n/a 

17 

n/a 

15 

n/a 

7 

n/a 

10 

35 

5 

14 

19 

8 

n/a 

6 

n/a 

22 

n/a 

10 

n/a 

20 

13 

6 

15 

17 

9 

n/a 

9 

n/a 

6 

n/a 

20 

n/a 

30 

5 

2 

12 

16 

10 

n/a 

17 

n/a 

17 

n/a 

6 

n/a 

14 

17 

12 

26 

31 

11 

n/a 

7 

n/a 

19 

n/a 

6 

n/a 

37 

20 

8 

13 

15 

12 

n/a 

17 

n/a 

11 

n/a 

9 

n/a 

10 

22 

11 

15 

26 

Mean 
St Dev 

n/a 

13 

n/a 

17 

n/a 

10 

n/a 

18 

22 

8 

16 

17 

n/a 

5 

n/a 

7 

n/a 

5 

n/a 

10 

11 

4 

4 

6 


j No. of CCS's of Order 4 or Greater by Target Pairs, 210 Knot Proc. (Cont.) | 

Test 

Subject 

TAG / AID 
MN21 GR21 DC21 

SL21 

OTHER /AID 
MN21 GR21 DC21 

SL21 

OTHER ( 8 PAIRS ) 
MN21 GR21 DC21 SL21 

1 

n/a 

15 

n/a 

22 

n/a 

6 

n/a 

3 

17 

8 

19 

5 

2 

n/a 

9 

n/a 

30 

n/a 

17 

n/a 

25 

22 

12 

6 

9 

3 

n/a 

29 

n/a 

9 

n/a 

13 

n/a 

36 

18 

19 

21 

9 

4 

n/a 

19 

n/a 

10 

n/a 

3 

n/a 

0 

37 

18 

36 

13 

5 

n/a 

6 

n/a 

23 

n/a 

25 

n/a 

37 

29 

6 

24 

11 

6 

n/a 

18 

n/a 

29 

n/a 

6 

n/a 

19 

27 

4 

22 

28 

7 

n/a 

33 

n/a 

18 

n/a 

24 

n/a 

5 

42 

10 

14 

14 

8 

n/a 

18 

n/a 

20 

n/a 

29 

n/a 

45 

25 

8 

13 

10 

9 

n/a 

14 

n/a 

18 

n/a 

13 

n/a 

31 

32 

26 

18 

13 

10 

n/a 

26 

n/a 

28 

n/a 

13 

n/a 

40 

24 

17 

17 

19 

11 

n/a 

9 

n/a 

23 

n/a 

19 

n/a 

31 

35 

16 

18 

16 

12 

n/a 

15 

n/a 

60 

n/a 

9 

n/a 

22 

27 

14 

11 

16 

Mean 
St Dev 

n/a 

18 

n/a 

24 

n/a 

15 

n/a 

25 

28 

13 

18 

14 

n/a 

8 

n/a 

13 

n/a 

8 

n/a 

14 

7 

6 

7 

6 


Table 8 (Cont). Number of cross-check scans of order 4 or greater associated with 
pairs of gaze objects. 
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Number of CCS' s of Order 4 or Greater by Zone Pairs, 170 Knot Procedure 

Teat I zone 1 / zone 1 I zone 1 / zone 2 zone2 / zone 2 zone2 / zone 3 

Subject MN GR DC SL MN GR DC SL MN GR DC SL MN GR DC SL 

1 32 23 29 21 17 10 29 25 6 16 11 2 3 7 8 1 

2 30 19 25 30 46 7 27 26 8 2 1 2 2 2 9 2 

3 65 31 35 36 87 19 47 45 20 3 5 5 17 14 17 10 

4 26 19 18 14 13 14 18 28 12 14 7 6 4 2 16 2 

5 18 15 29 14 48 16 34 40 8 14 12 9 4 9 6 7 

6 84 20 17 20 86 4 21 15 16 9 12 5 9 3 11 3 

7 54 20 37 23 48 24 44 51 4 0 6 2 9 14 28 0 

8 29 28 55 33 50 15 29 48 5 1 6 5 12 13 14 2 


9 

5 

27 

26 

21 

20 

20 

27 

27 

2 

4 

6 

5 

7 

10 

11 

0 

10 

43 

30 

42 

18 

44 

19 

29 

41 

5 

10 

12 

10 

12 

10 

8 

7 

11 

40 

32 

21 

34 

48 

14 

23 

40 

4 

4 

3 

1 

9 

1 

6 

6 

12 

23 

16 

26 

37 

53 

21 

30 

39 

7 

15 

7 

6 

9 

5 

10 

4 

Mean 

37 

23 

30 

25 

47 

15 

30 

35 

8 

8 

7 

5 

8 

8 

12 

4 

St Dev 

22 

6 

11 

8 

23 

6 

9 

11 

5 

6 

4 

3 

4 

5 

6 

3 


Number of CCS’s of Order 4 or Greater by Zone Pairs, 210 Knot Procedure 

Test zone 1 / zone 1 zone 1 / zone 2 zone2 / zone 2 zone2 / zone 3 
Subject MN GR DC SL MN GR DC SL MN GR PC SL MN GR DC SL 

1 25 17 17 21 29 12 33 16 4 2 7 1 5 1 11 3 

2 50 10 32 21 34 12 28 44 4 8 1 6 5 4 7 0 

3 33 32 48 23 73 27 45 34 9 7 5 7 15 4 5 5 

4 33 20 25 8 21 12 17 19 5 9 9 3 7 3 7 1 

5 39 14 38 21 48 25 58 48 7 14 6 4 2 3 15 3 

6 99 12 43 25 104 12 41 58 9 13 10 5 14 5 19 6 

7 50 15 24 30 45 43 60 32 8 9 4 3 10 13 23 4 

8 85 27 46 26 72 23 47 37 4 9 5 0 3 10 23 0 

9 87 15 31 32 39 6 39 25 5 12 1 1 8 9 3 4 

10 55 38 37 40 48 15 45 43 6 22 6 7 4 1 14 1 

11 70 31 31 35 51 13 42 27 5 8 9 3 2 8 2 1 

12 81 25 21 49 60 8 50 50 5 15 4 2 6 3 6 0 

Meen "59" 21 33 28~ 52 17 42 36 6 11 6 4 7 5 11 2 

StOev 25 9 10 11 23 10 12 13 I 2 5 3 2 | 4 7 2 

Table 9. Number of cross-check scans of order 4 or greater associated with pairs of 
display zohes. 
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1 No. of CCS's of Order 4 or Greater by Zone Pairs, 170 Knot Proc.( Cont) | 

Test 

Subject 

MN 

zonel / zone 3 
GR DC SL 

MN 

zonel / zone 4 

GR DC SL 

MN 

Other 

GR DC 

SL 

1 

4 

7 

8 

4 

3 

4 

1 

0 

4 

1 

2 

2 

2 

7 

0 

1 

4 

2 

0 

1 

0 

0 

4 

5 

2 

3 

3 

2 

9 

5 

7 

0 

2 

2 

1 

2 

1 

0 

4 

5 

4 

6 

4 

1 

1 

2 

0 

0 

3 

3 

1 

5 

6 

3 

3 

7 

1 

0 

0 

2 

3 

2 

3 

2 

6 

12 

1 

3 

9 

15 

2 

2 

1 

4 

4 

4 

1 

7 

11 

3 

9 

8 

15 

1 

5 

0 

3 

1 

2 

1 

8 

18 

2 

2 

13 

1 

5 

9 

3 

1 

1 

0 

1 

9 

1 

4 

11 

9 

3 

1 

2 

1 

0 

1 

9 

0 

10 

34 

5 

10 

17 

0 

4 

1 

1 

8 

2 

6 

8 

11 

6 

2 

5 

16 

4 

2 

1 

5 

2 

1 

6 

1 

12 

9 

2 

2 

13 

1 

2 

1 

4 

1 

5 

6 

2 

Mean 
St Dev 

10 

3 

6 

9 

4 

2 

2 

2 

2 

2 

4 

2 

9 

2 

4 

5 

5 

2 

2 

2 

2 

1 

3 

2 


| No. of CCS's of Order 4 or Greater by Zone Pairs, 210 Knot Proc. (Cont) | 

Test 

Subject 

zonel / zone 3 
MN GR DC SL 

zonel / zone 4 
MN GR DC SL 

MN 

Other 
GR DC 

SL 

1 

6 

7 

10 

0 

3 

3 

2 

0 

0 

3 

3 

0 

2 

6 

4 

7 

2 

4 

2 

1 

0 

0 

2 

1 

0 

3 

5 

17 

15 

6 

6 

9 

2 

1 

5 

5 

2 

1 

4 

7 

7 

9 

12 

5 

1 

2 

2 

4 

1 

3 

1 

5 

11 

3 

9 

13 

9 

3 

2 

2 

0 

0 

0 

2 

6 

9 

1 

5 

16 

4 

2 

7 

3 

4 

1 

5 

1 

7 

14 

5 

15 

7 

21 

4 

4 

1 

3 

4 

5 

0 

8 

22 

6 

9 

26 

2 

7 

7 

1 

2 

3 

0 

5 

9 

9 

10 

9 

9 

13 

4 

4 

6 

0 

2 

2 

3 

10 

8 

5 

6 

15 

5 

2 

3 

4 

2 

4 

3 

0 

11 

5 

4 

4 

10 

10 

11 

6 

3 

2 

3 

3 

4 

12 

9 

3 

7 

8 

3 

2 

1 

2 

6 

4 

4 

2 

Mean 
St Dev 

9 

6 

9 

10 

7 

4 

3 

2 

2 

3 

3 

2 

5 

4 

3 

7 

5 

3 

2 

2 

2 

1 

2 

2 


Table 9 (Cont)* Number of cross-check scans of order 4 or greater associated with 
pairs of display zones. 
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4.0 Major Results and Concluding 
Remarks 

In the FASA study, as should be the case for 
any experiment, careful a priori consideration was 
given to defining the performance measures to be 
used with the oculometer, the steps taken to insure 
data integrity (e,g., calibration and quick look), and 
how the data were to be recorded and analyzed. 
Because of system developments (hardware and 
software) described in this paper, the oculometer 
system was successfully applied to the simulated 
interaction between an air traffic controller and the 
plan view radar display. The eye scan data were 
used along with other measurements to evaluate 
the relative merits of several proposed display 
modifications as described in references 1 and 2. 
Methods were developed and implemented to 
increase resolution and to maintain alignment 
accuracy. Algorithms were developed to synchro- 
nize the oculometer data to the time history data, to 
filter the data, to identify the target of each indi- 


vidual fixation, and to identify cross check scan se- 
quences. Some of the measurement techniques, 
especially with respect to cross-check scans and 
display zones, have not been described in previous 
papers. Detailed tables have been provided, which 
show measurements averaged over each test run, 
and are in the form used in ANOVA testing for 
significance. These tables clearly illustrate the 
diversity among controllers and the consistency for 
any given controller across experimental treat- 
ments. The ANOVA tests reported in references 1 
and 2 clearly affirmed the significance of differ- 
ences measured between display formats. The 
recorded data (.SCN, .DAT, and .ACP) files have 
been preserved for further analysis, if needed. The 
.MRG and .CCS files which resulted from the pro- 
cedures described in this paper, are also available. 
The flow diagrams, source code, block diagrams, 
and file record descriptors provided in this report 
should ensure that the technology can be extended 
to future air traffic studies and that, if needed, the 
FASA oculometer data can be further analyzed. 
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Appendix A 


Data File Record Descriptors 


Cross Check Scan F ile Record (.CCS) 

This is an ASCII type file with 103 bytes per 
record. The last two bytes are a carriage-return 


and a line-feed. A segment of a .CCS file is 
shown below: 


Ml 

2182 

2183 

1 

15 

10 

TAG 

Vc 

432 

433 

25 

1 

2 

0 

1 

0 

0 

25 

1.2 

Ml 

2183 

2184 

1 

10 

15 

VC 

TAG 

433 

433 

40 

2 

2 

1 

1 

0 

0 

40 

0.7 

990 

2184 

2187 

2 

15 

15 

TAG 

TAG 

433 

432 

81 

2 

1 

1 

0 

0 

0 

26 

1.9 

991 

2194 

2196 

2 

15 

15 

TAG 

TAG 

433 

432 

153 

2 

1 

1 

0 

0 

0 

57 

1.8 

992 

2195 

2199 

2 

15 

10 

TAG 

VC 

433 

501 

285 

2 

3 

1 

0 

0 

0 

257 

4.9 

993 

2199 

2201 

1 

15 

10 

TAG 

VC 

433 

433 

232 

2 

1 

1 

0 

0 

0 

226 

1.0 

994 

2201 

2206 

3 

10 

15 

Vc 

TAG 

433 

432 

155 

1 

1 

0 

0 

0 

0 

34 

1.2 

995 

2204 

2207 

1 

15 

10 

TAG 

Vc 

432 

432 

55 

1 

1 

0 

0 

0 

0 

55 

0.7 

995 

2207 

2208 

1 

10 

15 

VC 

TAG 

432 

433 

79 

1 

1 

0 

0 

0 

0 

79 

2.5 

997 

2208 

2209 

1 

15 

10 

TAG 

Vc 

433 

421 

67 

1 

2 

0 

0 

0 

0 

67 

3.3 

998 

2209 

2210 

1 

10 

10 

VC 

Vc 

421 

501 

54 

2 

3 

0 

1 

0 

0 

35 

2.2 

999 

2212 

2213 

1 

10 

53 

VC 

LIN* 

501 

SDW 

75 

3 

3 

1 

0 

0 

0 

14 

2.4 

1000 

2213 

2214 

1 

53 

15 

Lna 

TAG 

StM 

501 

19 

3 

3 

0 

1 

0 

0 

19 

1.9 

1001 

2214 

2215 

1 

15 

10 

TAG 

Vc 

501 

501 

43 

3 

3 

1 

1 

0 

0 

43 

0.7 

1002 

2215 

2219 

4 

10 

53 

Vc 

LINK 

501 

sm 

101 

3 

3 

1 

0 

0 

0 

61 

2.4 

1003 

2219 

2225 

1 

10 

15 

VC 

TAG 

501 

433 

74 

3 

1 

1 

1 

0 

1 

23 

3.7 

1004 

2227 

2228 

1 

51 

15 

LXNB 

TAG 

VHL 

432 

15 

1 

1 

0 

0 

0 

0 

11 

2.8 

1005 

2228 

2229 

1 

15 

15 

TAG 

TAG 

432 

433 

32 

1 

1 

0 

1 

0 

1 

11 

1.8 

1006 

2232 

2234 

2 

15 

15 

TAG 

TAG 

433 

432 

111 

1 

1 

1 

0 

1 

0 

26 

1.8 

1007 

2234 

2241 

4 

15 

51 

TAG 

LINS 

433 

no. 

213 

1 

1 

1 

0 

1 

0 

64 

1.4 

1008 

2241 

2242 

1 

15 

15 

TAG 

TAG 

433 

432 

50 

1 

1 

0 

0 

0 

0 

SO 

1.7 


260 

0 

7 

260 260 

7 

7 

260 

7 

0 

2 60 

2 

0 

260 

2 

0 

260 

2 

0 


0 

0 


0 

0 


0 

0 


0 

0 

345 

0 

50 

345 

43 

0 

345 

0 

43 

345 345 

43 

43 

345 

43 

0 

345 170 

36 

-5 


0 

0 

170 

0 

-6 

170 

-7 

0 

170 

-7 

0 


0 

0 


The first field is a record number or se- 
quence number for the cross check scans. The 
next two fields are record numbers on the merge 
file (.MRG) and represent the first and last re- 
cord of the sequence. In the segment shown, 
cross-check-scan sequence number 1002 started 
with merge file record number 2215 and stopped 
on merge file record number 2219. The next 
.CCS field gives the number of transitions be- 
tween the two objects. This number is one less 
than the order of the scan sequence. Thus, cross 
check scan sequence 1002 had 4 transitions and 
was therefore of order five. Fields 5 and 6 are 
numerical object identifiers (as defined in Table 
Cl) and fields 7 and 8 are mnemonic object iden- 
tifiers. The ninth and tenth fields are either 
partial flight numbers for aircraft or mnemonics 
such as SDW for south down wind or FNL for 
final. The next field (11) is the length of the se- 
quence in sample periods; to get seconds, divide 
this number by 30. The next 2 fields (12 & 13) 
give the zones for the two objects. Note that in 
sequence 1000, both the data block on flight 501 
and the SDW line are in zone 3. Fields 14 & 15 
indicate whether the aids are displayed or not 
and fields 16 & 17 refer to the speed markers. 


Anytime a marker is on (notice 1003 and 1005- 
1007) the corresponding aid is on. 

The next field (18) contains the amount of 
time included in a given sequence, which is also 
included in either the preceding or following se- 
quence. To elaborate, consider the sequence of 3 
objects A to B to C. In this study, a sequence was 
constrained to 2 objects. Therefore the sequence 
would be considered to be two sequences, A to B 
and B to C. The dwell time associated with B 
would be included in both sequences. As a result, 
when the total time for all sequences is summed, 
it is considerably larger than the total run time 
for the test. Field 18 was used to keep track of 
total time and overlapping time. Field 19 is the 
display distance in inches between the two ob- 
jects. The next 4 fields (2 field pairs) are used for 
DICE format only. The first pair gives recom- 
mended headings (or recommended speeds) as 
and when they appear in the data tag. The sec- 
ond pair, the last two fields, includes the current 
DICE countdowns. 

The format of the record is more precisely 
defined in subroutine READSEQ which appears 
both in programs SEQNCE1 AND SEQNCE2. It 



retum/line-feed. There are 19 fields in the re- 
cord, three of which (spares) were not used. 
Because of its form, it would be difficult to show a 
segment of the file. Fields do not line up neatly 
in columns. Therefore a segment of a .PT1 file is 
shown; it is a .MRG file formatted using the 
PRNMRG program. 


THE FOLLOWING DATA IS FROM THE FILE, c:\fasa\brennan\nto06dc21.mrg 
The number of records on the file Is : 4832 

PRINT FROM RECORD # 1000 to 1020 


Rec# Tp Typ Fxt PD TgID 

1000 15 TAG 13 440 631 

Dist FrNo 
0.17 221 

TgtX 

-0.83 

TgtY 

0.27 

FixX 

-0.67 

FixY Hdg CD 
0.25 

0 

z 

z 

1 

0 

0 

1001 

15 

TAQ 

13 

428 

309 

0.06 

221 

-2.54 

-0.10 

-2.60 

-0.11 


0 

z 

z 

1 

0 

0 

1002 

15 

TAG 

9 

440 

309 

0.07 

221 

-2.54 

-0.10 

-2.52 

-0.16 


0 

z 

z 

1 

0 

0 

1003 

15 

TAG 

129 

449 

508 

0.53 

221 

1.19 

0.15 

1.71 

0.06 

170 

0 

z 

z 

1 

1 

1 

1004 

80 

BLNK 

8 

10 

Jil 

99.99 

222 

0.00 

0.00 

0.00 

0.00 


0 

z 

z 

9 

0 

0 

1005 

53 

LINS 

22 

439 

SDH 

0.10 

222 

2.69 

-2.38 

2.67 

-2.29 


0 

z 

z 

3 

0 

0 

1006 

0 

UNK 

5 

422 

Jil 

99.99 

222 

0.00 

0.00 

4.18 

-4.65 


0 

z 

z 

9 

0 

0 

1007 

0 

UNK 

11 

433 

Jil 

99.99 

223 

0.00 

0.00 

3.65 

-4.58 


0 

z 

z 

9 

0 

0 

1008 

89 

OUT 

23 

10 

Jil 

99.99 

223 

0.00 

0.00 

0.00 

0.00 


0 

z 

z 

9 

0 

0 

1009 

15 

TAG 

66 

441 

508 

0.43 

223 

0.96 

0.19 

1.35 

0.02 


0 

z 

z 

1 

0 

0 

1010 

15 

TAG 

17 

432 

631 

0.23 

223 

-1.01 

0.22 

-0.88 

0.03 


0 

z 

z 

1 

0 

0 

1011 

15 

TAG 

18 

433 

309 

0.29 

224 

-2.76 

-0.14 

-2.47 

-0.17 


0 

z 

z 

1 

0 

0 

1012 

15 

TAG 

26 

441 

508 

0.29 

224 

0.84 

0.20 

1.05 

0.00 


0 

z 

z 

1 

0 

0 

1013 

10 

A/C 

36 

447 

970 

0.43 

224 

1.97 

-1.80 

2.39 

-1.88 

280 

10 

z 

z 

2 

0 

1 

1014 

15 

TAG 

14 

435 

508 

0.62 

224 

0.84 

0.20 

1.36 

-0.14 


0 

z 

z 

1 

0 

0 

1015 

15 

TAG 

19 

435 

631 

0.31 

224 

-1.10 

0.20 

-1.33 

-0.01 


0 

z 

z 

1 

0 

0 

1016 

15 

TAG 

6 

429 

309 

0.45 

225 

-2.84 

-0.15 

-2.84 

-0.60 


0 

z 

z 

1 

0 

0 

1017 

80 

BLNK 

7 

10 

Jil 

99.99 

225 

0.00 

0.00 

0.00 

0.00 


0 

z 

z 

9 

0 

0 

1018 

53 

LINE 

50 

436 

SDW 

0.45 

225 

2.68 

-2.38 

2.59 

-1.94 


0 

z 

z 

3 

0 

0 

1019 

15 

TAG 

34 

436 

508 

0.67 

225 

0.74 

0.21 

1.14 

-0.32 


0 

z 

z 

1 

0 

0 

1020 

10 

A/C 

73 

433 

970 

0.44 

225 

1 . 94 

r*- 

*> 

H 

1 

2.38 

-1.72 

280 

7 

z 

z 

2 

0 

1 


can also be seen in subroutine PRINTSEQ in the 
program CROSS 1. 


The .MRG file is an unformatted ASCII file 
with variable record size. Fields are separated by 
commas, and each record ends with a carriage- 


The first column is a record number and is 
not a field in the file. The first and second fields 
are the numerical and mnemonic object identifier 
as defined in table Cl. The next field (3) is the 
length of the sequence in sample periods; to get 
seconds, divide this number by 30. The fourth 
field is pupil diameter in analog to digital con- 
verter counts; to get millimeters, multiply this by 
(25.4/2048). Record 1003 has a pupil diameter of 
5.6 mm (449 counts). The fifth field is either a 
partial flight number for aircraft or a mnemonic 
such as SDW for south down wind or FNL for 
final. The mnemonic Jil in this field and the 
number 99.99 in the next field are examples of 
presets which have not been overwritten. They 
are used for checking the algorithms and should, 
for the most part, be ignored. Note that their 
occurrence corresponds to out-of-track records 
including blinks and also to in-track records 

A-2 


where a gaze object could not be found (UNK in 
field 2) within the allowable 0.57 inches. Field 6 
is the distance on the screen in inches between 
the look point and gaze object, when one is iden- 
tified. The next field (7) is a pointer to the air- 
craft position file (.ACP) and a time stamp. It 
was computed by subroutine FIXPOINTER in 
program FIXPOINT. It gives the record number 
of the .ACP file that was searched for targets by 
subroutine SEARCH in program FILLMRG. To 
get run time in seconds at the beginning of a 
simulation update subtract one from the value in 
field 7 and multiply by 4, the simulation update 
rate. For example, .ACP record 224 referenced in 
.MRG record 1011 (shown above) started 892 
seconds into the run. 

The next four fields (8-11) are the real x,y 
screen coordinates of the object |first and then the 



look point. Fields 12 and 13 are for DICE format 
only. Field 12 gives the recommended heading 
(or recommended speed) only when it appears in 
the displayed data block associated with the gaze 
object. With the same constraints, field 13 con- 
tains the current DICE countdown. Fields 14 
and 15 are not used and field 16 is the zone num- 
ber as supplied for the aircraft by the .ACP file. 
A "1" in 17 indicates the speed marker is active 
and a "1" in field 18 indicates that the aid is on. 
Field 19 is not used and is not shown above. 

The array type FIXCOMB, defined in sev- 
eral programs including CRE8MRG1, FILLMRG, 
et. al., best defines the fields on this record. The 
subprogram PUTXX in CRE8MRG1 writes the 
array to the .MRG file. The common utility sub- 
routine, GETXXA uses the FIXCOMB data struc- 
ture to read one record of the file. GETXXA is 
called in a loop: In subroutine FILLBUF in pro- 
gram CROSS 1, in subroutine SEARCH in pro- 
gram BEANCNT1, in subroutine SEARCH in 
program FILLMRG, and elsewhere. 
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Time History File Record Group 
(ACP) 

This file is unusual in that it has four record 
types in a group, the last of which types changes 
form with run format and pattern speed. A 
group of records describes the state of the 
controller’s display during one four-second 
simulation interval. This file was searched (by 
FILLMRG) to determine what the controller was 
looking at for every recorded fixation. Although 
having a more complex structure than the other 
files, the .ACP file is a formatted ASCII file with 
each line terminated by a carriage return/line 
feed sequence. Two record groups are shown 
below. The first is a DICE display format, 210- 
knot approach-pattern-speed run. The second is 
a graphic marker format, 210 pattern-speed run. 
The two formats are presented to illustrate the 
difference in fourth record type, and the 210 
pattern speed was selected to show how the speed 
change advisory was distinguished from the turn 
advisory. 


The first record of the group tells how many It also contains time in seconds, which is related 

aircraft were on the screen during the interval. to the traffic sample. This is not time since the 
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beginning of the run, but rather since the begin- 
ning of the traffic sample. This time was not 
used in connection with the oculometer analysis. 
In the examples shown, there are 10 and 12 air- 
craft respectively. In the next group of records 
(starting with record 2), there is one line (or re- 
cord) for each aircraft. Each record contains 

• the flight identification number, 

• the x and y coordinates of the aircraft 
given in the simulation frame of refer- 
ence, 

• the x and y coordinates of the data block 
given in the simulation frame of refer- 
ence, 

• a route number, and 

• a zone number. 

The route number indicates corner the post 
from which the aircraft entered the pattern. 
Routes 1, 2, 3, and 4 correspond to the NE, SE, 
SW, and NW corner posts. The zone numbers are 
functional as well as area indicators. Zones 1, 2, 
3, and 4 correspond to final approach course, base 
leg, downwind leg, and everything else. To illus- 
trate, a route/zone combination of 3/3 would indi- 
cate that the aircraft was on the south downwind 
coming from the west. These aircraft descriptors 
(the second type of record) always have the same 
form. 

The next record type, a single record, con- 
tains three integers. The numbers indicate how 
many aids were active on the display during the 
particular interval for the graphic marker, slot 
marker, and DICE, respectively. In the first 
example above, the numbers are 0,0,3; in the 
second they are 3,0,0. Thus, the examples are 
from a DICE run and a graphic marker run. 
This single record is followed by that number of 
aid descriptors, three in each example above. For 
the manual format this record always contains 
the numbers 0,0,0 and always ends the group. 
For this study, no more than one type of aid was 
used in a run, but that was not a constraint of 
the system. The aid descriptors are different 
depending on the type of aid. For the 210 knot 
pattern speed graphic marker and DICE runs, 
the aid descriptors distinguished between turn 
indicators and speed indicators. 

The aid descriptor for the DICE has three 
forms, two of which are shown in the first exam- 
ple above. As shown for flight 253 and 530 in the 
example, the descriptor gives the flight number 


followed by the suggested heading and the DICE 
countdown value. If the latter is negative the 
aircraft has gone beyond the recommended turn 
point and will be late arriving unless the control- 
ler intervenes to make up the time. Sometimes, 
the countdown was shown but not the heading. 
This occurred only when the countdown was 
greater than 60 seconds. The third form is illus- 
trated with flight 674 in the first example shown 
above. This is the speed change advisory where 
the flight number is followed by the suggested 
speed (prefixed with the letter S) and the count- 
down value. For this study, the suggested speed 
was always 170 knots. Nominally, the controller 
issued the clearances when the DICE countdown 
values went to zero. 

For the graphic marker nine numbers were 
furnished. The first is the flight number just as 
in the aircraft descriptor records. This is fol- 
lowed by four pairs of position coordinates (x,y) 
given in the simulation frame of reference. The 
graphic marker is three connected straight line 
segments. These four pairs of coordinates specify 
the positions of the graphic marker's vertices. 
Flights 700 and 996 in the second example above 
demonstrate normal graphic marker descriptor 
layout. The graphic speed marker is a single 
point on the screen. In the aid descriptor, each of 
the last six numbers is set at a constant 99.99. 
The flight identifier is followed by a single set of 
coordinates for the point location. This can be 
seen for flight 725 in the graphic example above. 
Nominally, the controller issued the clearances 
when the aircraft just touched the marker. 

The aid descriptor for the slot marker con- 
tains two numbers, the flight number and the y 
coordinate in nautical miles (simulation frame of 
reference) of the slot marker. The x axis coordi- 
nate is not given and stays constant at -.34 nmi. 
The marker moves along the extended runway 
centerline toward the runway, which is parallel 
to the y simulation axis and just below it. 
Nominally, the controller issued clearances with 
the goal of placing the aircraft in the center of its 
slot marker as it proceeded on the final approach 
course. 

The format of the ACP record group is more 
precisely defined in subroutine TARGETSET in 
program FILLMRG. The file is read as #3 in- 
dexed by file #4, the .IDX file. The first three 
types of records in the group are read in common 
code but the last type of record is read using a 
'SELECT CASE' structure to differentiate be- 
tween the different types of FASA formats. 
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The Oculometer D ata File (.DAT) 

The DAT file produced by the oculometer 
facility is a random access binary file. Each re- 
cord has eight bytes (four 16-bit integers). There 
are no record separator bytes such as the usual 
carriage-return/line-feed sequence. Thus, for 
example, the fifth record spans bytes 33 to 40. 
Each record contains data on either an in -track 
or out-of-track event depending on whether or 
not the instrument was tracking the subject's 
eye. For in-track events, the first two fields con- 
tain the x and y position coordinates of the look 
point given in the display reference frame. The 
third field contains the pupil diameter and the 
fourth contains the time duration of the fixation. 
For out-of-track events, the first two fields con- 
tain zeros. The third field contains instrument 
status information not germane to this study, 
and the fourth contains the time duration of the 
event. The times are given in units of 1/30 sec- 
ond, i.e., divide by 30 to get seconds. The coordi- 
nates and pupil diameter are given in converter 
counts. To convert the coordinates to inches on 
the display, divide the values by 204.8 (data con- 
stant cpi! in subprogram CRE8MRGFLE of pro- 
gram CRE8MRG 1). As was stated with reference 
to the .MRG file above, to convert pupil diameter 
to millimeters multiply the value by (25.4/2048). 


The subprogram BI2 in FIXPOINT reads the 
.DAT file, appends a fifth integer to it, and writes 
(subroutine CRE8DT1) the record to the DTI 
file. The data structure DTI defined in 
FIXPOINT is used with the .DTI, DT2, and DT3 
files. The appended first byte is derived from the 
.SCN file. It contains a record pointer to the 
.ACP file, and it must be added prior to any filter- 
ing. See the code in FIXPOINT for further detail 
on these two record structures. 

Ihfi — Oculometer Synchronization 

File (.SCN) 

The .SCN file produced by the oculometer 
facility is a random access binary file. Each re- 
cord has two bytes (one 16-bit integer). There are 
no record separator bytes such as the usual car- 
riage-return/line-feed sequence. The number is 
recorded at the beginning of each simulation 
update and its value is the record number 
(ordinal) of the last .DAT file record stored at 
that point in time. This is used by program 
FIXPOINT to synchronize the DAT file to the 
.ACP file. The single integer .SCN record is read 
into the first column of the buffer array OCSCAN 
in program FIXPOINT, subprogram BI1 to be 
used as a record pointer to the ACP file. 
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Appendix B 

Program Block Diagrams 


The diagrams presented in this appendix 
have proven themselves to be very useful during 
the development and maintenance of the source 
code presented in Appendix C. The order of the 
diagrams corresponds to the (almost) alphabetical 
order of the program listings in Appendix C. 
They are included here to help anyone who needs 
to examine the code in detail. The block dia- 
grams show how the programs interact with the 
various files. The caption on each figure 
attempts to explain the function of the process. A 
PC computer was used to do this analysis. The 
programs were written in Microsoft Quick Basic. 
Certain common devices are used throughout. 
These will be explained in order to make the 
processes easier to follow. 

Each run has an associated name containing 
information on subject, run number, format, and 
speed. For example, LC12DC21 would be a name 
associated the 12th run for subject LC, which 
used the DICE format at the 210 pattern speed. 
All files associated with this run would use this 
name with an appropriate suffix. Thus, 
LC12DC21.MRG, LC12DC21.CCS, and 
LC12DC21.LOG are the merge, cross-check-scan, 
and log file associated with that particular run. 
In the diagrams of this section the names of files 
are dropped, and the suffix is used to indicate the 
type of file being used, e g., .MRG, CCS, and 
.LOG. In figure B2, for example, the DT3 file is 
processed by CRE8MRG1, which produces a 
.MRG file. During the processing, information is 
appended to the LOG file for the particular run 
being processed. Normally, twelve files, one for 
each subject, were processed as a sequential 
group. This would represent all the runs for one 
display-format/pattern-speed combination. The 
names of the twelve runs are listed in 
FLEINDX1. The file TOTAL.LOG (figure B2) 
contains composite information for the twelve 
files. This semi-automated approach made it 
possible to use two or three computers at the 
same time, each processing a different treatment. 
The sharped numbers (e g., #2 near the DT3 file) 
indicate the file number used in the correspond- 
ing source code (Appendix C) and are included for 
clarity. 


Hopefully the diagrams (along with their 
associated source listings) will shed some light on 
the individual processing steps. They are not, 
however, in temporal order, so in order to clarify 
the overall procedure, something needs to be said 
about sequence. There are 3 major parts: data 
acquisition, data reduction, and data analyses. 
Most of the analysis used a commercial program 
to generate repeated measures analysis of vari- 
ance on statistics derived from the .MRG or .CCS 
files. These two files are the output of the data 
reduction phase, and the cross-check -scan (.CCS) 
file is totally derived (figure B5) from the merge 
(.MRG) file. The input of the data reduction 
phase (output from the acquisition phase) are the 
.SCN, .DAT, and .ACP files. 

During the acquisition phase, it is critical 
that the oculometer data be kept carefully syn- 
chronized with the simulator data and that posi- 
tion accuracy be maintained through frequent 
calibrations. The preferred method of synchroni- 
zation is to have one computer record all the data 
using a single time stamp. In the FASA study, 
because of the different processing periods (four 
seconds versus 1/30 second), the data were 
recorded on two computers and later synchro- 
nized using the .SCN file data. During the 
experiment, it is wise to carefully observe the 
data being recorded and to do quick look analyses 
to test its quality. In later stages of analysis, one 
may correct mistakes and re-analyze the data, 
but in the acquisition phase, an error could result 
in having to rerun the experiment. Therefore, 
one must acquire data carefully and attempt to 
find and correct problems immediately. 

The first stage of data reduction (Figure B1 1) 
is to synchronize the .DAT file records by adding 
to them an aircraft position record pointer (.ACP 
record number) derived from the .SCN file. Once 
synchronized, the programs SRCGDAT (figure 
B18) and CUT20 (figure B6) are used to prune 
out a few known bad records. Then, the data are 
filtered (figure BIO) to remove noise and combine 
certain contiguous fixations. The filtered data 
are then saved (figure B2) in the merge file for- 
mat. Many of the .MRG record fields are unde- 
fined at this point. Because of the complexity of 
the .ACP record, a file index is generated (figure 


B3) for each file. The program FILLMRG (figure 
B9) searches the ACP file to determine the likely 
object of the controller's gaze. This action 
involves a coordinate transformation of the look- 
point and, then, a distance computation for each 
object on the screen during the particular simu- 
lation interval. Once identified, target informa- 
tion is transformed into display coordinates and 
written into the .MRG record. CROSS 1 (figure 
B5) generates the cross check file (.CCS) by 
searching groups of contiguous scans for the 
occurrence of this stylized behavior. 


BEANCNT1, A1HIST, SEQNCE1, and SEQNCE2 
(figures Bl, B8, B15, and B16) derive statistics 
from the .MRG, and CCS files. They were used 
in addition to a commercial data base program 
and a statistical analysis program. CRI8MGX 
(figure B4) was used to produce the .MRG file 
index. The programs shown in figures 13 and 14 
were used to make printed listings of the data, 
and those in figures 12 and 17 were used to plot 
the lookpoints. The programs in figure 7 were 
used to interactively examine the data. 
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Figure Bl. BEANCNT1 tallies statistic* on 3 classes of oculometer objects: unidentified targets, all 
other In-track objects, and out-of-track objects. The statistics include very coarse frequency functions on 
time duration, zone, and distance between target and lookpoint 



Figure B2. CRE8MRG1 is a simple program that sets up the .MRG file. After filtering and before the 
target search, each oculometer event becomes a record on the .MRG file. At this point, most fields have 
not yet been filled. Target information will be added by a later process to .MRG. 
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Figure BS. Sequences of in-track fixations on the .MRG file which alternate between two screen objects 
(such as two aircraft symbols) become a single record on the .CCS (cross check scan) file. CROSS1 does not 
artificially limit the order of a scan. It counts transitions until the scan is interrupted. The somewhat 
complex logic for identifying cross check scans is in the subroutine FINDAB. The logic can be extended to 
include groups of 3 or more objects. 



audit trail in the Individual run logs and collectively in the LOC.TOT file. Index specifies a list of files 
including which records need to be removed. 
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Figure 117. There three simple programs serve the important function of allowing the analyst to 
interactively peruse the contents of the files. 



Figure B8. A1H1ST makes two passes through the files to compute normalized histograms of the fixation 
times for each aircraft data block. It computes time duration histograms for three conditions: aid-on, aid-ofT 
and the two combined. This amounts to three histograms per run. It also produces three histograms 
combining all the runs listed in FLE1NDX1. 
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Figure B9. FILLMRG associates each lookpoint on the .MRG files with a display object recorded on the 
.ACP file. The resulting .MRG file has information on the lookpoint and the target as well as the distance 
between and whether or not the aid is on. 


Figure BIO. FILTER1 Implements the four niters discussed in the paper. The input file (.DTI) is the 
renamed output file (.DT2) from CUT20 (Figure B6). The output file (.DT3) has significantly fewer records 
after filtering. 








plK fj in .DTI. The logic for associating .DTI records to .ACP records is in subroutine FIXPOINTER. 



Figure BI2. PLTDATFL uses the screen print interrupt to plot all the lookpoints from a given run on a 
■it gU i beet. The points correspond to the positions on the controller's display. They arc a graphic 
description of the scan pattern. With slight modification (to read the 5 byte input) this was also used to look 
at the data after filtering. 
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Figure B13. PRNDAT and PRNDT1 are simple but useful programs that allow one to copy segments of the 
data files to a printable file. It is more convenient to use the .PRN and .PRT Files than to go directly to the 
printer. The programs are interactive with the user supplying the file name and First and last record of each 
segment. The .DT? files have 5 fields and the .DAT files have four. 



scrutiny. The program is interactive with the user supplying the file name and the first and last record of 
each segment to be copied. 
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Figure B15. SEQNCE1 computes the average and standard deviation for the duration of all cross check 
scans and the distances between ail corresponding pairs of targets. In addition to the overall values, it 
computes these parameters for each defined zone pair and order of cross check scan. The source program as 
shown uses 4 orders of cross check scans and 10 defined zone pair. The results for each run listed in 
FLEINDX1 are written into a corresponding .PR1 file. The accumulated results for all runs are written to 
the ZNETOT.PR1 file. 



FLEINDX1_ 

#i 



Figure B16. SEQNCE2 computes the average and standard deviation for the duration of all cross check 
scans and the distances between all corresponding pairs of targets. In addition to the overall values, it 
j-n-piiiM these parameters for each defined target pair and order of cross check scan. The source program 
as shown uses 4 orders of cross check scans and 20 defined target pairs. The results for each run listed in 
FLE1NDXI are written into a corresponding .PR2 file. The accumulated results for all runs are written to 
the ZNETOT.PR2 file. Normally, FLEINDX1 would have 1 file name for each subject for a given treatment. 
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Screen 


Printer 


Figure BI7. SIXIN1 is a plotting program almost identical to PLTDATFL (figure B12) above except that it 
puts six scatter plots on a single page to facilitate comparisons. Each plot depicts all lookpoint positions for a 
run without providing Information on duration or sequence. 




Figure B18. SRCGDAT was used to find abnormally long in-track and out-of-track records on the .DAT 
flies. Once identified, they were checked against logs from the corresponding run and the recollections of the 
researchers. Some records (an extremely small amount) were then purged as false data resulting from system 
malfunctions. 
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Appendix C 

Data Reduction and Analysis Source Code 
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PROGRAM BEANCNT1 1 

SUB FIN 3 

SUB INIT (filename$ y filename 1$) 3 

SUB PROUT 5 

SUB SEARCH 6 

SUB SRCHWRK 7 

PROGRAM CRE8MRG1 10 

SUB BI2 (BIP%()) 11 

SUB CRE8MRGFLE 12 

SUB FIN 14 

SUB INIT (FILENAMES, FILENAMES) 15 

SUB PUTXX (FILENO%) 16 

PROGRAM CRI8IDX 18 

SUB FIN 19 

PROGRAM CRI8MGX 21 

PROGRAM CROSS1 22 

SUB FILLBUF 24 

SUB FIN 24 

SUB FINDAB (IOK) 25 

SUB INIT (FILENAMES, FILENAME IS) 28 

SUB PRINTSEQ (LAPOVER) 29 

PROGRAM CUT20 31 

PROGRAM DMPACP 33 

PROGRAM DM PD AT 35 

PROGRAM A1 HIST 36 

SUB ACCUMULATE 38 

SUB HISTOGRAM 39 

SUB INIT (filenames* filename IS) 40 

** SUB PROUT2 41 

SUB SEARCH 43 

PROGRAM DMPDT1 45 

PROGRAM FILLMRG 46 

SUB FIN 47 

FUNCTION HIT*/. (VL%, ARRAY%(), N%) 48 

SUB INIT (FILENAMES, FILENAMES) 48 

SUB PICK (XI, YI, TOTSYM*/., K, DISTMIN!) 50 

SUB PUTXX (FILENO%) 52 

SUB SEARCH 52 

SUB TARGETSET (FRAMENO%, TOTSYM*/., NODICE*/.) 56 

PROGRAM FILTER 1 60 



PROGRAM FEXPOINT 65 

SUB BI1 (BIP%()) 66 

SUB BI2 <BIP%0) 66 

SUB CRE8DT1 68 

SUB FIN 69 

SUB FEXPOINTER 69 

SUB INIT (FILENAMES, FILENAME 1$) 71 

PROGRAM PLTDATFL 74 

PROGRAM PRNDAT 76 

PROGRAM PRNDT1 77 

PROGRAM PRNMRG 78 

Program Qklook 89 

SUB BI1 (BIP%()) 82 

SUB BI2 (BIP%0) 82 

SUB CRE8MRGFLE 84 

SUB FIN 85 

SUB FIXPOINTER 87 
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SUB FILBLNK1 193 
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SUB INIT (FILENAMES, FILENAME1S) 1" 

SUB PRNTGTS (TRGTSO) 197 
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PROGRAM SIXIN1 111 
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SUB GETXXB (FILENO%, NEOFMRG) 116 
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PROGRAM BEA N CN T 1 

DECLARE SUB PROUT () 

DECLARE SUB SRCHWRK () 

DECLARE SUB FIN () 

DECLARE SUB INIT (filanama$, 
DECLARE FUNCTION LOG$ (SB$, A$) 
DECLARE FUNCTION LOGS$ (SB$, A$) 
DECLARE SUB SEARCH () 

DECLARE SUB OETXXA (FILENO%) 

DEFINT I-N 

CONST pi! - 3.14159 

CONST SF! « .472, XOFF! * -5.04, 

>! 

CONST big! - 3!, littla! - 1! 
TYPE FIXCOMB 

TOTTYPEN AS INTEGER 
TGTTYPEC AS STRING * 4 
FIXLNGTH AS INTEGER 
PUPDIAM AS INTEGER 
TGTID AS STRING * 3 
DISTANCE AS SINGLE 
FRAMENO AS INTEGER 
TGTX AS SINGLE 
TGTY AS SINGLE 
FIXX AS SINGLE 
FIXY AS SINGLE 
HEADING AS STRING * 3 
COUNTDOWN AS INTEGER 
CONTFIX AS STRING * 


= 204.8, alpha 
runoff ! * - . 34 


'NON ZERO MEANS HIT 
■TARGET TYPE 


■ID OF CLOSEST TARGET 
'BETWEEN CLOSEST TARGET AND FIXATION 
■TIME HISTORY FRAME # 
'TARGET POSITION 

'FIXATION POSITION 


>A CONTINUATION OF THE 


'DICE 
'DICE 
'IS THIS 

PREVIOUS FIXATION 


filanamal$) 


YOFF! i 
-11.5 * 


■ -. 9 , 

pi! / 


cpi ! 
180, 


CROSSCHECK AS STRING * 1 

ZONE AS STRING * 2 'WHAT AREA OF THE TUBE IS THE FIXATION? 
SPEED AS STRING * 1 ' SPLADT S-on, F-off 

A I DON AS STRING * 1 'A-on, F-off 

SPARE AS STRING * 8 
END TYPE 
DIM AAAA$ 

DIM OTN ( 1 TO 4) AS INTEGER, UNKN(1 TO 4) AS INTEGER, ITN(1 TO 4) 

>AS INTEGER, DISTN (1 TO 4) AS INTEGER 

DIM OTT (1 TO 7), UNKT(1 TO 7), ITT(1 TO 7) AS SINGLE, TT 
DIM ZONEN ( 1 TO 7) AS INTEGER 
DIM DISTL (1 TO 7) AS SINGLE 
DIM fruit $ 

frmt$ - "## / / #### #### / / ###.## #### ###.## ###.## ###.## # 

>##.## ### ### ! ! //" 

DIM XX AS FIXCOMB 
DIM XXX$ 

DIM I AID AS INTEGER 

DIM BI1P (1 TO 7) AS INTEGER ' Buf farad Input 1 
DIM BI2P (1 TO 7) AS INTEGER ' Buf farad Input 2 

DIM BOP (1 TO 7) AS INTEGER 'Buffarad Output 

DIM FILEDUM$, FILEMRG$ , FILEBCl$ 



DIM FILEDUM%, FILEMRG*, FILEBC1% 

DIM NUMINTRACK, NUMOUTTRACK AS INTEGER 

DIM 8UMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 

' ** FILE NUMBERS ** 

' #1 FILE INDEX #2 #3 'modified 1/5/93 

' #4 #5 #6 

' #7 DUM #8 BC1 #9 


SB$ 


(BEANCNT1 


DIM PAGE$ , FONT$ 

DIM SPSINV! , SB$ 

SPSINV! - 1 / 30: 

NOSTAT% - 10 

DIM STATXS (NOSTAT%) , STATYS (NOSTAT%) AS SINGLE 
DIM STATID (NOS TAT %) AS STRING * 4 

DATA "DEN ","IOC " , "OM " , "KEAN" , "FLTS" , "WIVS" , "BYSN" , "TROZ" , "DRK 

>0" , "JASN" 

FOR I ■ 1 TO NOSTAT%: READ STATID (I) : NEXT I 

DATA 2.38,-19.49,-0.3,19.44,10.92,-10.24, -23 .07,-8.22,29.42,14.67 
FOR I * 1 TO NOSTAT%: READ STATXS (I) : NEXT I 

DATA -.63,24.92,6.1,28.79,14.1,14.1,-26.08,-11.24,-19.56,-9.23 
FOR I - 1 TO NOSTAT%: READ STATYS (I) : NEXT I 
PRTCONTROL$ « CHR$ (33) + "R" + CHR$ (33) 

PAGE$ « PRTCONTROL$ + PAGE; EXIT; " 'OFFICE 

+ RES; FONT 62; EXIT;" 'OFFICE 

' HOME 

CHR$ (80) 'HOME 


FONT$ = PRTCON TROL $ 

' PAGE$ - CHR$ (12) 

’ FONTS - CHR$ (27) + 

DIM SINAL! , COSAL f 

SINAL! ■ SIN (alpha? ) : COSAL! 

XXX$ - "## \ \ #### #### \ \ 


•modified 1/5/93 
•modified 1/5/93 
•modified 1/5/93 


■ COS (alpha!) 

##.## ###« ««#.«« **«.## ###.#« ### 
>.## ### #### ! ! \\" 

AAAA$ - " MAIN-START MAIN LOOP" 

INPUT " Enter full file descriptor for index file " , index$ 

OPEN index$ FOR INPUT AS #1 
INDEX1$ « LEFT$ (index$, LEN(index$) - 4) 

FILEBC1$ * INDEX1$ + ".BC1": FILEBC1% = 8 
OPEN FILEBC1$ FOR OUTPUT AS #FILEBC1% 

DO WHILE NOT EOF(l) 

INPUT #1, filename$ 

IF LEN (filename$) < 8 THEN EXIT DO 
filenamel$ “ RIGHTS (UCASE$ (filename$) 

CALL INIT (filenames » filenamel$) 

CALL SEARCH 

PRINT LOGS$(SB$, " FINISHED SEARCH 
CALL PROUT 
CALL FIN 

LOOP 

CLOSE 1, 8 'modified 1/5/93 

PRINT AAAAS 


'modified 1/5/93 


8 ) 


+ filenamel$) 


Close FILES 


END 


• MAIN PROGRAM ' DUMMY PAGE $ 


?r? ; PAGE ;EXIT; 



SUB FIN 
•#«#««#*«#« 
' Purpose . . . 


\ Close all files, scale and output a few 

> statistics 

1 Parameters \ 

'Other input data \ SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK , 

>NUMINTRACK , NUMOUTTRACK 

'Input files \ 

'Output files \ 

' Other output data \ 

' Function calls \ LOG$ 

'Subroutine calls \ 

' Comments \ 

'########## 

SHARED SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK AS LONG 
SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 
IF NUMINTRACK <> 0 AND NUMOUTTRACK <> 0 THEN 

PRINT LOG$ (SB$ , "NUMBER OF IN TRACK FIXATIONS* "); NUMINTRAC 

>K; ' totals for .txt file 

PRINT LOG$(SB$, "NUMBER OF OUT TRACK FIXATIONS*" ) ; NUMOUTTRA 

>CK 

PRINT USING "4 ###### OR ####.## SECONDS"; LOG$(SB$, "TOTAL 

>TIME IN TRACK IS "); SUMINTRACK; SUMINTRACK / 30 

PRINT USING "4 ###### OR ####.## SECONDS"; LOG$(SB$, "TOTAL 

>TIME OUT TRACK IS " ) ; SUMOUTTRACK; SUMOUTTRACK / 30 

PRINT USING "4 ###### OR ####.## SECONDS"; LOG$(SB$, "TOTAL 

>FIXATION TIME IS "); SUMFIXLENGTH; SUMFIXLENGTH / 30 

PRINT USING "4 ###.## OR ##.## SECONDS"; LOG$(SB$, "AVERAGE 

>IN TRACK FIXATION IS ") ; SUMINTRACK / NUMINTRACK; SUMINTRA 

>CK / NUMINTRACK / 30 

PRINT USING "4 ###.## OR ##.## SECONDS"; LOG$(SB$, "AVERAGE 

XXJT TRACK FIXATION IS "); SUMOUTTRACK / NUMOUTTRACK; SUMOUT 

> TRACK / NUMOUTTRACK / 30 

END IF 
CLOSE 7 


END SUB ' FIN ' DUMMY PAGE $ ?r? ; PAGE; EXIT; 


SUB INIT (filenames, filenamelS) 

•########## 

'Purpose \ Initialize parameters on both circular 

>buf fers 

• \ initialize sums to zero. Let user choose partic- 

' \ ular run for analysis. Determine aid type for 

« \ subsequent branching. Open FILESCN$, FILEDAT$ , 


• \ FILEACP$ and store their lengths. 

' Parameters \ none 

• Other input data \ 

• Input files \ FILESCN$ , FILEDAT$, FILEACP$ 

'Output files \ 

'Other output data \ File names 4 unit #'s. Initialized vari 



>ables , sums 

' \ and pointers and the branch variable IAID 

' Function calls \ LOG$ 

'Subroutine calls \ none 

1 Comments \ X don't think I'm using this BOP stuff* 

'########## 


SHARED OTN ( ) AS INTEGER, UNKN ( ) AS INTEGER, ITN() AS INTEGER, DIS 

>TN ( ) AS INTEGER 

SHARED OTT(), UNKT ( ) , ITT() AS SINGLE, TT 
SHARED ZONENO AS INTEGER 

SHARED DISTLO AS SINGLE 

SHARED BI1P() AS INTEGER ' Buf feredlnput 1 

SHARED BI2P() AS INTEGER ' Buf feredlnput 2 

SHARED BOP () AS INTEGER ' Buf feredOutput 

SHARED FILEDUM$ , FILEMRG$ , FILEBC1$ 

SHARED FILEDUM% , FILEMRG%, FILEBC1% 

SHARED IAID AS INTEGER 

SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 

SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 

SB$ - "(INIT " 

' SIZE , FIRST , LAST , TRIG , NREC , NEOF, PI 
I - nacanbuf : BI1P(1) « I: BI1P(2) = 0: BI1P<3) = 1: BI1P<4) = .2 

> * I 

BI1P (5) - .7 * I: BI1P (6) - 0: BI1P(7) * 1 
'FOR L - 1 TO 7: print BI1P(L) : NEXT L 

I - nfixbuf: BI2P(1) * I: BI2P(2) * 0: BI2P(3) = 1: BI2P(4) = .2 

>* I 

BI2P (5) - .7 * I: BI2P (6) - 0: BI2P<7) = 1 

I - nfixbuf: BOP(l) « I: BOP(2) * 1: BOP(3) = 1: BOP(4) = .9 * I 
BOP (5) - .B * I: BOP (6) = 0: BOP(7) = 1 


TT “ 0 

FOR I - 1 TO 4: OTN(I) » 0: UNKN(I) = 0: ITN(I) = 0: DISTN(I) = 0 

>: NEXT I 

FOR I - 1 TO 7: OTT(I) - 0: UNKT(I) = 0: ITT(I) = 0: DISTL(I) = 0 

>: ZONEN(I) = 0: NEXT I 

OTT(6) - 1000000: UNKT(6) ■ 1000000: ITT(6) * 1000000: DISTL(6) = 

> 1000000 


SELECT CASE MID$ (f ilenamel$ , 5, 1) 

CASE "M" 

IAID - 1 
CASE "D" 

IAID - 2 
CASE "G" 

IAID - 3 
CASE "S" 

IAID « 4 
CASE ELSE 

IAID - 9 

END SELECT 

IF IAID * 9 THEN PRINT LOG$(SB$, "CASE FROM FILENAME MUST BE MN,D 

>C,GR or SL") : PRINT : STOP 


XAID1 ■ VAL(MID? (filenamel?, 7, 1)) 

IF IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOG? (SB?, "CASE FROM FILE 

>NAME MUST BE 170 OR 210") : PRINT : STOP 

IAID - IAID * 10 + IAID1 : PRINT IAID 

' FILEDUM$ - FILENAME$ + ".DUM": FILEDUM% * 7 'modified 1/5/93 
FILEDUM$ - filename? + " .MRG" : FI LEDUM % - 7 * modified 1/5/93 

FILEMRG? - filename? + ".MRG": FILEMRG% = 6 

' FILEBC1? - filename? + ".BC1": FILEBC1% - 8 ' COMMENT 

>: FILE NAME SHOULD LOOK LIKE 

• " C : \FASAFILE\CRONE\CC10SLCE" 


END SUB 1 INIT ' DUMMY PAGE? ?r? ; PAGE; EXIT; 


SUB PROUT 

SHARED FI LEDUM? , FILEMRG? , FILEBC1? 

SHARED FILEDUM%, FILEMRG% , FILEBC1% 

SHARED OTN() AS INTEGER, UNKN ( ) AS INTEGER, ITN() AS INTEGER, DIS 

>TN () AS INTEGER 

SHARED OTT(), UNKT() , ITT() AS SINGLE, TT 
SHARED ZONENO AS INTEGER 
SHARED DISTL () AS SINGLE 
SHARED SPSINV! , SB? 

SB? « " (BEANCNT1 " 

'OPEN FILEBC1? FOR OUTPUT AS #FILEBC1% 'modified 1/5/93 

PRINT #FILEBC1% , LOGS? (SB?, FILEMRG?) 'modified 1/5/93 

PRINT #FILEBC1% , USING "Total time ####.# OT ####.# IT-UNK ## 

>##.# IT ####.# IN SECONDS"; TT * SPSINV!; OTT(l) * SPSINV 

>!; UNKT(l) * SPSINV!; ITT(l) * SPSINV! 

XI! - 100 * OTT(l) / TT: X2 » - 100 * UNKT(l) / TT: X3! = 100 * IT 

>T(1) / TT: X4 ! «= 100 * UNKT(l) / (UNKT(l) + ITT(l)) 

PRINT #FILEBC1%, USING " OT ##.#% IT-UNK 

>##.#% IT ##.#% UNKAS%TOTT ##.#%"; XI!; X2 ! ; X3!; X4 ! 


PRINT *FILEBC1%, 

PRINT #FILEBC1%, "S*30 — %T Min Max 

> <4 

EMI? - « «« »#««« ##.« ##.# ##•#% 

FM2$ « " ».«» #.«# #-«# #.#* ##•#% 


Mean SD 

4-12 >12 " 
««.#% ##.#%" 
#«.#% ##.#%" 


' out of traok 

XI! - OTT(l) / OTN (1) : X2 ! = SQR(OTT(5) / OTN(l) - XI! A 2) 

X3 ! « 100 * OTT (2) / OTT(l): X4 ! * 100 * OTT(3) / OTT(l) : X5! = 1 

>00 * OTT ( 4 ) / OTT (1) 


PRINT #FILEBC1%, "OT "; 

PRINT #FILEBC1%, USING EMI?; OTT (6); OTT (7); XI!; X2!; X3! ; X4 ! ; 

>X5 ! 


•in traok target unidentified 

XI! « UNKT(l) / UNKN ( 1 ) : X2 ! * SQR(UNKT(5) / UNKN(l) - XI! A 2) 
X3! = 100 * UNKT (2) / UNKT(l) : X4 ! = 100 * UNKT(3) / UNKT(l): X5! 

> = 100 * UNKT (4) / UNKT (1) 

PRINT #FILEBC1%, "IT-UNK 
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PRINT #FILEBC1%, USING FM1$; UNKT(6); UNKT(7) ; XI!; X2 ! ; X3!; X4 ! 

>; X5 ! 

•in track targat identifiad 

XI! - ITT (1) / ITN(l): X2 ! - SQR(ITT<5) / I1N(1) - XI! A 2) 

X3! - 100 * ITT (2) / ITT (1) : X4 ! * 100 * ITT<3) / ITT(l) : X5! = 1 

>00 * ITT (4) / ITT (1) 

PRINT #FILEBC1%, "IT 

PRINT #FILEBC1%, USING FM1$; ITT (6); ITT (7); XI!; X2 ! ; X3! ; X4 ! ; 

>X5 ! 

' diatanca lookpolnt to targat 

PRINT #FILEBC1%, " <.25 .25-. 5 >.5 " 

XI! - DISTL(l) / DISTN(l): X2 ! = SQR(DISTL(5) / DISTN(l) - XI! A 

>2) 

X3 ! » 100 * (DISTN (2) / DISTN(l)): X4 ! = 100 * (DISTN(3) / DISTN ( 

>1)): X5 ! ■ 100 * (DISTN (4) / DISTN(l)) 

PRINT #FILEBC1% , "DIST 

PRINT #FILEBC1%, USING FM2$; DISTL(6) ; DISTL(7) ; XI!; X2 ! ; X3!; X 

>4 ! ; X5 ! 

'Array aontanta for checking 

PRINT ttFILEBCl% , 

PRINT #FIUEBC1%, " # of recorda-Total , Time <4, 4-12, >12" 

FOR II - 1 TO 4: PRINT #FILEBC1%, OTN(II); : NEXT II: PRINT #FILE 

>BC1% , "OTN" 

FOR II * 1 TO 4: PRINT #FILEBC1%, UNKN(II); : NEXT II: PRINT #FIL 

>EBC1%, "UNKN" 

FOR II - 1 TO 4: PRINT #FILEBC1%, ITN(II); : NEXT II: PRINT #FILE 

>BC1 % , " ITN" 

PRINT #FILEBC1%, 

PRINT #FILEBC1%, " # of racorda-Total, Diat <.25, .25-. 5, >.5" 

FOR II - 1 TO 4: PRINT #FILEBC1%, DISTN(II); : NEXT II: PRINT #FI 

>LEBC1% , "DISTN" 

FOR II - 1 TO 4: PRINT #FILEBC1%, ZONEN(II); : NEXT II: PRINT #FI 

>LEBC1 % , "ZONEN" 

PRINT #FILEBC1%, 

PRINT #FILEBC1%, " Time in counta-Total , Time <4, 4-12, >12, SSQ, 

> Min, Max" 

FOR II - 1 TO 7: PRINT #FILEBC1%, OTT(II); : NEXT II: PRINT #FILE 

>BC1% , "OTT" 

FOR II * 1 TO 7: PRINT #FILEBC1%, UNKT(II); : NEXT II: PRINT #FIL 

>EBC1% , "UNKT" 

FOR II ■ 1 TO 7: PRINT #FILEBC1%, ITT(II); : NEXT II: PRINT #FILE 

>BC1% , "ITT" 

FOR II - 1 TO 7: PRINT #FILEBC1%, DISTL(II); : NEXT II: PRINT #FI 

>LEBC1%, "DISTL" 

PRINT #FILEBC1%, USING "##.##"; 1 
PRINT *FILEBC1%, 

PRINT #FILEBC1%, 

PRINT *FILEBC1%, 

END SUB 


SUB SEARCH 
•«#«««««#«# 


c-« 


' Purpoaa \ 

' Paramatars \ non# 

' Othar input data \ 

'Input filaa \ FILEDUM$ 

'Output filaa \ 

' Othar output data \ 

'Function calls \ LOG$ 

' Subroutina calls \ OETXXA, 

' Comments \ 


SHARED AAAA$ 

SHARED FILEDUM$ , FILEMRO$ , FILEBC1$ 

SHARED FILEDUM%, FILEMRG% , FILEBC1% 

SHARED XX AS FIXCOMB 
SHARED SINAL! , COSAL! 

SB$ - " (SEARCH " 

FRMTAC$ - "### \ \ ###.## ###.## ### \ \ ###.## ###.##" 

FRMTSYMHDR$ « " ##### ### ### ###" 

CLOSE 7 

'OPEN FILEMRG$ FOR INPUT AS #6 
OPEN FILEDUM$ FOR APPEND AS #7 
IF LOF(7) - 0 THEN 

PRINT LOG$ (SB$ , "DUM FILE CAN NOT BE FOUND ") 

EXIT SUB 

ELSE 

CLOSE 7: OPEN FILEDUM$ FOR INPUT AS #7 
AAAA$ - "SEARCH-START” 

DO WHILE NOT EOF (7) 

CALL OETXXA (7) 'GET THE RECORD INTO XX 

CALL SRCHWRK 

LOOP 

CLOSE 6 , 7 
END IF 


END SUB 'SEARCH 1 DUMMY PAGE $ ?r? ; PAGE ;EXIT; 


SUB SRCHWRK 

SHARED XX AS FIXCOMB 

SHARED OTN ( ) AS INTEGER, UNKN () AS INTEGER, ITN() AS INTEGER, DIS 

>TN ( ) AS INTEGER 

SHARED OTT() / UNKT() , ITT() AS SINGLE, TT 
SHARED ZONENO AS INTEGER 
SHARED DI8TL0 AS SINGLE 
TT ■ TT + XX . FIXLNGTH 
SELECT CASE XX. TGTTYPEN 

CASE 80, 89 'OUT TRACK 

OTN (1) ■ OTN (1) + 1: OTT(l) = OTT(l) + XX. FIXLNGTH 

TEMP - XX. FIXLNGTH: TEMP = TEMP * TEMP 

OTT (5) - OTT (5) + TEMP ' SOSQ's 

IF XX. FIXLNGTH < OTT(6) THEN OTT(6) = XX. FIXLNGTH 'MIN 
IF XX. FIXLNGTH > OTT (7) THEN OTT<7) * XX. FIXLNGTH 'MAX 
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SELECT CASE XX . FIXLNGTH 

CASE IS < 4 'Noise 2 

OTN (2) - OTN (2) + 1: OTT(2) = OTT(2) + XX. FIX 

>LNGTH 

CASE IS < 13 'Blink 3 

OTN (3) - OTN (3) + 1: OTT(3) « OTT(3) + XX. FIX 

>LNGTH 

CASE ELSE 'Long out 4 

OTN (4) - OTN (4) + 1: OTT(4) » OTT(4) + XX. FIX 

>LNGTH 

END SELECT 

CASE 0 ' In but can ' t ID target 

UNKN(l) - UNKN(l) + 1: UNKT(l) « UNKT(l) + XX. FIXLNGTH 
TEMP - XX. FIXLNGTH: TEMP = TEMP * TEMP 

UNKT ( 5 ) - UNKT (5) + TEMP 'SOSQ’s 

IF XX. FIXLNGTH < UNKT (6) THEN UNKT (6) = XX . FIXLNGTH ' MIN 

IF XX. FIXLNGTH > UNKT(7) THEN UNKT{7) = XX . FIXLNGTH ' MAX 

SELECT CASE XX. FIXLNGTH 

CASE IS < 4 ' 2 

UNKN (2 ) - UNKN (2) + 1: UNKT (2) = UNKT (2) + XX 

>. FIXLNGTH 

CASE IS < 13 ' 3 

UNKN (3) - UNKN (3) + 1: UNKT (3) = UNKT (3) + XX 

>. FIXLNGTH 

CASE ELSE ' 4 

UNKN (4) - UNKN (4 ) + 1: UNKT ( 4 ) = UNKT (4) + XX 

>. FIXLNGTH 

END SELECT 

CASE ELSE ' In with target 

ITN(l) « ITN(l) + 1: ITT(l) = ITT(l) + XX. FIXLNGTH 
TEMP « XX. FIXLNGTH: TEMP = TEMP * TEMP 

ITT (5) - ITT (5) + TEMP ’SOSQ's 

IF XX. FIXLNGTH < ITT (6) THEN ITT (6) = XX. FIXLNGTH 'MIN 

IF XX. FIXLNGTH > ITT(7) THEN ITT(7) = XX. FIXLNGTH 'MAX 

SELECT CASE XX. FIXLNGTH 

CASE IS < 4 ' 2 

ITN (2) - ITN (2) + 1: ITT(2) = ITT(2) + XX. FIX 

>LNGTH 

CASE IS < 13 ' 3 

ITN (3) = ITN (3) + 1: ITT(3) = ITT(3) + XX. FIX 

>LNGTH 

CASE ELSE ' 4 

ITN (4) => ITN (4) + 1: ITT(4) = ITT(4) + XX. FIX 

>LNGTH 

END SELECT 

DISTN(l) - DISTN(l) + 1: DISTL(l) = DISTL(l) + XX.DISTA 

>NCE 

DISTL(5) ■ DISTL (5) + XX. DISTANCE * XX. DISTANCE 'SOSQ's 

'PRINT XX. DISTANCE; XX . TGTTYPEN 

IF XX. DISTANCE < DISTL (6) THEN DISTL (6) = XX. DISTANCE 

> 'MIN 

IF XX. DISTANCE > DISTL(7) THEN DISTL(7) = XX. DISTANCE 

> 'MAX 
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SELECT CASE XX. DISTANCE 

CASE IS < .25 1 

DISTN (2) ■ DISTN (2) + 1 
CASE IS < .5 ' 

DISTN (3) ■ DISTN (3) + 1 
CASE ELSE 

DISTN (4) - DISTN(4) + 1 
END SELECT 

ZONEN ( 1 ) - ZONEN(l) + 1 
SELECT CASE XX. ZONE 


CASE 

H ^ II 


1 




ZONEN (2) 

- 

ZONEN (2) 

+ 

1 

CASE 

ii 2 " 


1 




ZONEN (3) 

« 

ZONEN (3) 

+ 

1 

CASE 

n 311 


1 




ZONEN (4) 

« 

ZONEN (4) 

+ 

1 

CASE 

ti 4 11 


1 




ZONEN (5) 

■ 

ZONEN (5) 

+ 

1 

CASE 

n 511 


1 




ZONEN (6) 

* 

ZONEN (6) 

+ 

1 

CASE 

ELSE 



I 



ZONEN (7) 

SB 

ZONEN (7) 

+ 

1 

SELECT 






END SELECT 
END SUB 


2 

3 

4 


2 

3 

4 

5 

6 


7 
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PROGRAM CRE8MBG1 

DEFINT I-N 

DECLARE SUB BI2 (BIP%()) 

DECLARE SUB CRE8MRGFLE () 

DECLARE SUB FIN () 

DECLARE FUNCTION LOG$ (SB$, A$) 

DECLARE SUB INIT (FILENAME$ , FILENAME!. $) 

DECLARE SUB PUTXX (FILENO%) 

DECLARE SUB YESORNO (A$ , B$) 

CONST pi! - 3.14159 

CONST nscanbuf « 400, nfixbuf * 500 

CONST SF! - .472, XOFF! * -5.04, YOFF! = -.9, cpi! = 204.8, alpha 

>! = -11.5 * pi! / 180, runoff! = -.34 


TYPE FIXCOMB 

TO TTY PEN AS INTEGER 
TGTTYPEC AS STRING * < 
FIXLNGTH AS INTEGER 
PUPDIAM AS INTEGER 
TGTID AS STRING * 3 
DISTANCE AS SINGLE 
FRAMENO AS INTEGER 
TGTX AS SINGLE 
TGTY AS SINGLE 
FIXX AS SINGLE 
FIXY AS SINGLE 
HEADING AS INTEGER 
COUNTDOWN AS INTEGER 
CONTFIX AS STRING * 1 


•NON ZERO MEANS HIT 
•TARGET TYPE 


•ID OF CLOSEST TARGET 
•BETWEEN CLOSEST TARGET AND FIXATION 


•TIME HISTORY FRAME # 
•TARGET POSITION 

•FIXATION POSITION 

•DICE 
•DICE 
•IS THIS 


>A CONTINUATION OF THE PREVIOUS FIXATION 

CROSSCHECK AS STRING * 1 

ZONE AS STRING * 2 'WHAT AREA OF THE TUBE IS THE FIXATION? 


★ 

★ 

* 


f SPLADT 


S-on, 
* A-on , 


F-off 

F-off 


INTEGER 'Buffered Input 1 
INTEGER* Buffered Input 2 


SPEED AS STRING 
A I DON AS STRING 
SPARE AS STRING 
END TYPE 

DIM XX AS FIXCOMB 
DIM BI IP ( 1 TO 7) AS 
DIM BI2P ( 1 TO 7) AS 
DIM FILEDT3$, FILEMRG$ 

DIM FILEDT3% , FILEMRG% 

DIM FIXPNTER(1 TO nfixbuf) AS INTEGER 
DIM FIXLENGTH ( 1 TO nfixbuf) AS INTEGER 
DIM INTRACK (1 TO nfixbuf) AS INTEGER 
DIM NUMINTRACK, NUMOUT TRACK AS INTEGER 
DIM PUPDIAM (1 TO nfixbuf) AS INTEGER 

DIM SHARED NUMFIX%, NUMSCAN%, NOSTAT% , NUMMRG% ' *****COMMON****** 
DIM SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK AS LONG 
DIM XLOOK (1 TO nfixbuf) AS INTEGER 
DIM YLOOK (1 TO nfixbuf) AS INTEGER 
' ** FILE NUMBERS ** 

< #1 #2 DT3 

• #4 #5 

• #7 #8 


#3 INDEX 
#6 MRG 
#9 
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SB$ - " (MAIN " 

DIM FILETOT*, FILELOO* 

PRINT : PRINT 

INPUT " Enter full file descriptor for index file " , INDEX$ 

OPEN INDEX# TOR INPUT AS #3 
FILETOT# - "TOTAL. LOO": FILETOT% * 4 
OPEN FILETOT# FOR APPEND AS FILETOT% 

DO WHILE NOT EOF (3) 

INPUT #3, FILENAME $ 

FILENAME1$ « RIGHT$ (UCASE$ (FILENAMES) , 8) 

CALL INIT (FILENAME?, FILENAME1$) 

CALL CRE8MROFLE 

PRINT LOG$(SB$, " FINISHED CRE8MRGFLE") 

CALL FIN 'Close FILES 

LOOP 

CLOSE 3, 4 


END ' MAIN PROGRAM ' DUMMYPAGE$ ?r? ; PAGE; EXIT; 


SUB BI2 (BIP%()) 

•########## 

■Purpose \Read the fixation data into circular buf 


>fers and\ 

• \ compute a few preliminary statistics. 

■Parameters \BIP%() Circular buffer pointers 

'Other input data \ 

'Input files \FILEDT3% *.DT3 

'Output files \ 

•Other output data \BIP%(), XLOOK () , YLOOKO , PUPDIAMO , FIXLEN 

>GTH (), INTRACK () Circular buffers 

' \SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK, NUMINTRACK, NUMOUTTRACK 
'Function calls \ 

• Subroutine calls \ 

1 Comments \ 

• lliiilillil 


SHARED INTRACKO AS INTEGER 
SHARED FIXLENGTHO AS INTEGER 
SHARED XLOOK () AS INTEGER 
SHARED YLOOKO AS INTEGER 
SHARED PUPDIAMO AS INTEGER 
SHARED FIXPNTERO AS INTEGER 

SHARED SUMFIXLENGTH ; SUMINTRACK, SUMOUTTRACK AS IONO 
SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 
SHARED FILEDT3%, FILEMRG% 'f 

' SIZE , FIRST , LAST , TRIG , NREC , NEOF, PI 
NORIB - BIP% (3) - BIP% (2) 'If buffer low AND EOF=.F. 

IF NORIB < 0 THEN NORIB - NORIB + BIP%(1) 

IF NORIB < BIP* (4) AND NOT EOF (FILEDT3%) THEN 
FOR I - 1 TO BIP* (5) 

GET FILEDT3* , , FIXPNTER(BIP* (3) ) 


1 Load buffer 



OET FILEDT3%, , XLOOK (BIP% (3) ) : GET FILEDT3%, , YLOOK(BIP% (3 

>) ) * read record 

IF NOT EOF (FILEDT3%) THEN 

GET FILEDT3%, , PUPDIAM (BIP% (3) ) : GET FILEDT3%, , FIXLE 

>NGTH (BIP% (3) ) 

SUMFIXLENGTH « SUMFIXLENGTH + FIXLENGTH (BIP% (3) ) 

> 'total of fixations 

INTRACK (BIP% (3) ) - 1 

IF XLOOK (BIP% (3) ) - 0 AND YLOOK(BIP% (3) ) = 0 AND PUPDIA 

>M (BIP% (3) ) < 11 THEN ' out of track 

INTRACK (BIP% (3) ) ■ 0 

SUMOUTTRACK - SUMOUTTRACK + FIXLENGTH (BIP% (3) ) 'tot 

>al out of track 

NUMOUTTRACK - NUMOUTTRACK + 1 
ELSE • in track 

SUMINTRACK - SUMINTRACK + FIXLENGTH (BIP% (3) ) 

> ' total intrack 

NUMINTRACK « NUMINTRACK + 1 
END IF 

BIP% (3) - BIP%<3) + 1 

IF BIP% (3) > BIP% (1) THEN BIP%(3) ■ 1 

ELSE 

EXIT FOR 
END IF 
NEXT I 
END IF 

BIP%{2) « BIP% (2) + 1: IF BIP%(2) > BIP%(1) THEN BIP%(2) = 1 ' Incr 

>ement first 


END SUB 


' BI2 ' DUMMY PAGE $ ?r ? ; PAGE ; EXIT ; 


SUB CRE8MRGFLE 

1 ########## 

'Purpose \ Initial creation of the . MRG file using 

> data from 

' \ .DAT and time history pointer array from subroutine 

' \ FIXPOINTER 

' Parameters \ none 

'Other input data \ NUMMRG%, PUPDIAM, FIXPNTER, XLOOK, CPI! 

>, YLOOK 

' \ FIXLENGTH, 

■Input files \ FILEDT3$= .DAT 

•Output files \ FILEMRG$= .MRG 

1 Other output data \ none 

'Function calls \ LOG$ 

'Subroutine calls \ BI2, PUTXX 

'Comments \ Target type is set to 0, "UNK" for in-t 

>racks or 

' \ 80, "OUT" for out-tracks. Other fields are initialized 

' \ to unrealistic constants. 
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' Buf f eredlnput 2 


SHARED BI2P () AS INTEGER 
SHARED FILEDT3$ , FILEMRG$ 

SHARED FILEDT3% , FILEMRG% 

SHARED FIXLENOTHO AS INTEGER 
SHARED FIXPNTER ( ) AS INTEGER 
SHARED XLOOK ( ) AS INTEGER 
SHARED YLOOK() AS INTEGER 
8 HARED PUPDIAMQ AS INTEGER 
SHARED XX AS FIXCOMB 

t 

SB$ ■ " (CRE8MRGFLE " 

CLOSE FILEMRG% 

OPEN FILEHRG$ FOR APPEND AS #FILEMRG% ' FIXATION, TIME HISTORY ME 

>RGE 

NUMMRGt - LOF (FILEMRG%) -can the fila be found 

IF NUMMROt <> 0 THEN 
PRINT 

PRIHT LOG$ (SB$ , FILEMRG$ + " is not empty and you ars trying 

> to OPEN it for output") 

PRINTLOG$ (SB$ , "NUMFIX% - "); NUMFIX%; "NUMMRG4 = »; NUMMRGfi 
A$ - "Do you want to SKIP " + FILEMRG$ + " and exit CRE8MRGF 

>LE subroutine" 

A$ * A$ + " If (no) then old data is purged" 

CALL YESORNO (A$ , B$) 

IF B$ - "Y" THEN 

CLOSE FILEMRG%: EXIT SUB 

ELSE 

CLOSE FILEMRG%: OPEN FILEMRG$ FOR OUTPUT AS #FILEMRG% 
END IF 
END IF 


t 

XX. TG TTY PEN « 0: XX . TGTTYPEC » "UNK" : XX . FIXLNGTH = 0: XX.PUPDIAM 

>% = 0: XX.TGTID * "Jil" 

XX. DISTANCE - 99.99: XX. FRAMENO = 9999: XX.TGTX = 0: XX.TGTY » 0: 

> XX.FIXX = 0: XX.FIXY - 0 

XX. HEADING “ 999: XX. COUNTDOWN = 0: XX.CONTFIX = "Z" : XX.CROSSCHE 

>CK * "Z" : XX. ZONE = "99" 

XX. SPEED ■ "F" : XX . A I DON « "F" : XX. SPARE =* " « 

SEEK #FILEDT3% , 1 'REWIND FILE £ RESET BUFFER ' 

I - nfixbuf : BI2P(1) - I: BI2P(2) = 0: BI2P(3) = 1: BI2P(4) « .2 

>* I 

BI2P (5) - .7 * I: BI2P (6) « 0: BI2P(7) = 1 

I 

FOR I - 1 TO NUMFIX% 

CALL BI2 (BI2P() ) 

II - BI2P (2) 

XX.PUPDIAM - PUPDIAM(II) : XX. FRAMENO = FIXPNTER ( II ) : XX.FIXX 

> * XLOOK (II) / cpi! 

XX.FIXY ■ YLOOK(II) / cpi!: XX. FIXLNGTH = FIXLENGTH ( I I ) 

IF XLOOK(II) - 0 AND YLOOK(II) * 0 AND PUPDIAM(II) < 11 THEN 

> 1 out of track 

XX . TGTTYPEN - 89: XX. TGTTYPEC = "OUT" 

IF FIXLENGTH (II) < 13 THEN XX. TGTTYPEN = 80: XX . TGTTYPE 
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— >c 


"BLNK" 


END 17 

CALL PUTXX (FILEMRG%) 

XX . TGTTYPEN - 0: XX. TO TTY PEC - "UNK" 
NEXT I 

CLOSE FILEMRG% 


I 


END 8UB ' CRE8MRGFLE 


SUB FIN 

* ########## 

' Purposa \ 

' Parana tars \ 

• Othar input data \ 

' Input f lias \ 

'Output filas \ 

1 Othar output data \ 

1 Function calls \ 

'8ubroutina aalls \ 

' Conmants \ 

' llllllllll 

SHARED SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK AS LONG 
SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 
SHARED FILETOT%, FILELOG% 

SB$ - " (FIN 11 

IF NUMINTRACK <> 0 AND NUMOUTTRACK <> 0 THEN 

PRINT #FILELOG% , LOG$(SB$, "NUMBER OF IN TRACK FIXATIONS- ") 

>; NUMINTRACK ' totals for . txt fila 

PRINT #FILELOG% , LOG$(SB$, "NUMBER OF OUT TRACK FIXATIONS—" ) 

>; NUMOUTTRACK 

PRINT #FILELOG% , USING "4 ###### OR ####.## SECONDS"; LOG$ (S 

>B$, "TOTAL TIME IN TRACK IS ") ; SUMINTRACK; SUMINTRACK / 30 

PRINT #FILELOG%, USING "4 ###### OR ####.## SECONDS"; LOG$ (S 

>B$ "TOTAL TIME OUT TRACK IS "); SUMOUTTRACK; SUMOUTTRACK / 

>30 

PRINT #FILELOG% , USING "4 ###### OR ####.## SECONDS"; LOG$(S 

>B$ "TOTAL FIXATION TIME IS "); SUMFIXLENGTH; SUMFIXLENGTH 

>/ 30 

PRINT #FILELOG% , USING "4 ###.## OR ##.## SECONDS"; LOG$ (SB$ 

> ( "AVERAGE IN TRACK FIXATION IS ") ; SUMINTRACK / NUMINTRAC 

>K; SUMINTRACK / NUMINTRACK / 30 

PRINT #FILEL0G%, USING "4 ###.## OR ##.## SECONDS"; LOG$ (SB$ 

> # "AVERAGE OUT TRACK FIXATION IS ") ; SUMOUTTRACK / NUMOUTTR 

>ACK; SUMOUTTRACK / NUMOUTTRACK / 30 

I 

PRINT #FILETOT%, LOG$ (SB$ , "NUMBER OF IN TRACK FIXATIONS— ") 

>; NUMINTRACK ' totals for -txt fila 

PBINT #FILETOT% , LOG$(SB$, "NUMBER OF OUT TRACK FIXATIONS—") 


1 DUMMY PAGE $ ?r? ; PAGE; EXIT; 

Closa all filas, scala and output a faw 

> statistics 

SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK, 
>NUMINTRACK , NUMOUTTRACK 

LOG$ 
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/ >; NUMOUTTRACK 

PRINT #FILETOT%, USING '4 ###### OR ####.## SECONDS"; LOG$(S 

>B$ , "TOTAL TIME IN TRACK IS ») ; SUMINTRACK; SUMINTRACK / 30 

PRINT #FILETOT%, USING "4 ###### OR ####.#* SECONDS"; LOG$ (S 

• >B$ , "TOTAL TIME OUT TRACK IS ") ; SUMOUTTRACK; SUMOUTTRACK / 

>30 

PRINT #7ILET0T% , USING "4 ###### OR ####.## SECONDS"; LOG$ (S 

>B$, "TOTAL FIXATION TIME IS "); SUMFIXLENGTH ; SUMFIXLENGTH 

>/ 30 

PRINT #FILETOT% , USING "4 ###.## OR ##.## SECONDS"; LOG$ (SB$ 

■ >, "AVERAGE IN TRACK FIXATION IS ") ; SUMINTRACK / NUMINTRAC 

>K; SUMINTRACK / NUMINTRACK / 30 

PRINT #FILETOT%, USING "4 ###.## OR ##.## SECONDS"; LOG$ <SB$ 

> ( "AVERAGE OUT TRACK FIXATION IS ") ; SUMOUTTRACK / NUMOUTTR 

>ACK; SUMOUTTRACK / NUMOUTTRACK / 30 

END IF 

CLOSE 2 , 5, 6 


END SUB ' FIN ' DUMMYPAGE$ ?r? ; PAGE; EXIT; 


SUB INIT (FILENAMES, FILENAME1S) 

########## 

Purpose.,.. \lnitialize parameters on circular buffer 

\ Initialize sums to zero. Let user choose partic- 
5 \ ular run for analysis. Determine aid type for 


\ subsequent branching. Open FILEDT3$ , 

\ and store their lengths. 

’ Parameters \ none 

Other input data \ 

laput files \ FILEDT3$ , 

Output files \ 

Other output data \ File names 4 unit #'s. Initialized vari 

>ables, sums 


\ and pointers 


^■function calls \ LOG$ 

Subroutine calls \ none 

Comments \ 

! i.)######### 


SHARED BI2PO AS INTEGER • Buf f eredlnput 2 

SHARED FILEDT3$ , FILEMRG$ 

SHARED FILEDT3%, FILEMRG% 

SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 

3SARED SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK AS LONG 

SHARED FILETOT%, FILELOG% 

3B$ - " (INIT " 

' SIZE , FIRST , LAST , TRIG , NREC , NEOF , PI 
I - nfixbuf: BI2P(1) - I; BI2P(2) - 0: BI2P(3) = 1: BI2P(4) = .2 


Bi2P 5) - .7 * I: BI2P (6) - 0: BI2P(7) - 1 
NTTMFXX* ■ 0: NUMSCAN% - 0 

SUMFIXLENGTH ■ 0: SUMINTRACK * 0: SUMOUTTRACK * 0 



NUMINTRACK - 0: NUMOUTTRACK - 0 


IF FILENAME$ - "" THEN 

PRINT : 

PRINT : PRINT : 

STOP 

FILEDT3$ - FILENAMES + 

" . DT3" : 

FILEDT3% « 2 

'append extension 

FILEMRG$ - FILENAMES + 

» . MRG" : 

FILEMRG% » 6 


FILE LOG$ - FILENAMES + 

" .LOG" : 

FILELOG% - 5 



COMMENT: FILE NAME SHOULD LOOK LIKE 

"C : \FASAFILE\ CRONE \CC10SLCE" 


I 

OPEN FILEDT3S FOR BINARY AS #2 1 oculometer . dat file 
NUMFIX% » LOF(2) / 10 ' can the file be found 

IF NUMFIX% - 0 THEN 
STOP 


ELSE 

PRINT LOO$(SB$, "NUMBER OF FIXATIONS IS "); NUMFIX% 

END IF 

OPEN FILELOG$ FOR APPEND AS FILE LOG % 

IF LOF(FILELOG%) - 0 THEN PRINT "Log file i» empty " ; FILENAME$ : 

>STOP 


PRINT #FILELOG%, 
PRINT #FILELOG% , 
PRINT *FILELOG% , 
PRINT #FILETOT%, 
PRINT #FILETOT%, 
PRINT #FILETOT%, 


II *********************************************** 

>***********************» 

LOG$ (SB$ , " Making Merge file from .DT3 after fi 

>1 taring ia complete") 

LOG$ (SB$ , FILENAME$ + " NUMBER OF FIXATIONS IS 

> " ) ; NUMFIX% 

it *********************************************** 

>***********************" 

LOG$ (SB$ , ” Making Merge file from . DT3 after fi 

>1 taring is complete") 

LOG$(SB$, FILENAME$ + " NUMBER OF FIXATIONS IS 

> " ) ; NUMFIX% 


END SUB ' INIT ' DUMMY PAGE $ ?r?; PAGE; EXIT; 


SUB PUTXX (FILEN0%) 
•########## 

' Purpose 

' Parameters 

'Other input data. . . 

'Input files 

'Output files 

'Other output data. . 

' Function calls 

' Subroutine calls . . . 
' Comments 


\ Writes a record from XX to the appropri 

>ate file. 

\ FILENO% 

\ XX 
\ none 
\ FIL£MRG$ 

\ none 
\ none 
\ none 

\ This makes it easier to modify record f 

>orm. 


'Write the array XX to a record on the FILEMRG$ file. 

SHARED XX AS FIXCOMB 

WRITE #FILENO%, XX . TGTTYPEN , XX . TGTTYPEC , XX.FIXLNGTH, XX.PUPDIAM 
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>, XX.TGTID, XX. DISTANCE, XX . FRAMENO , XX.TGTX, XX. TGTY, XX. FI 

>XX, XX.FIXY, XX. HEADING, XX . COUNTDOWN , XX.CONTFIX, XX. C 

>ROSSCHECK, XX. ZONE, XX. SPEED, XX.AIDON, XX. SPARE 

t 


END SUB ' PUTXX ' DUMMY PAGE $ ?r? ; PAGE ; EXIT; 
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PROGRAM CR181DX 

DECLARE SUB FIN () 

DECLARE FUNCTION LOG? (SB?, A$) 
DEFINT I-N 


'########## 

' Purpoi* \ 

' \ first byts 

' Parameters \ 

' Othsr input data \ 

'Input filas \ 

'Output filas \ 

' Othar output data \ 

'Function calls \ 

' Subroutina calls \ 

' Commants \ 


Craatas FILEIDX$ which contains pointar 

>s at tha 

of aach time history record on FILEACP? 

File names and unit numbers 
FILEACP$ 

FILEIDX$ 

LOG$ 

Assumes .ACP is open and pointar is at 

>the first 


I 


\ byte of tha time history i.a. beyond the file title. 


DIM IDX ( 1 TO 2000) AS LONG 

INPUT " Enter full file descriptor for index file ", INDEX$ 

OPEN INDEX$ FOR INPUT AS #1 
DO WHILE NOT EOF(l) 

INPUT #1, FILENAME$ 

FILENAME1$ « RIGHT$ (UCASE$ (FILENAME$) , 8) 

'INPUT " ENTER OCULOMETER FILE NAME, NO EXTENSION ", FILEN 

>AME$ 

' FILENAME? - COMMAND $ 

IF FILENAME? ■ "" THEN PRINT : PRINT : PRINT : STOP 
SB$ - " (CRI8IDX " 

FILEACP? » FILENAME? + ".ACP": FILEACP% * 3 ’append extension 
FILEIDX? ■ FILENAME? + " . IDX" : FILEIDX% = 4 


OPEN FILEACP? FOR INPUT AS FILEACP% 

NOBACPt ■ LOF (FILEACP%) 'can the file be found 

IF NOBACP& « 0 THEN 

PRINT LOG? (SB?, FILEACP?); "FILE NOT POUND" 

> ’ fix this test 

CALL FIN 

ELSE : PRINT LOG? (SB?, "NUMBER OF ACP BYTES IS " ) ; NOBACP& 

END IF 

INPUT #FILEACP%, FILEHDR? 

INPUT #FILEACP%, FILEHDR? 

PRINT LOG? (SB?, FILEHDR?) 


CLOSE FILEIDX% 

OPEN FILEIDX? FOR APPEND AS #FILEIDX% 

IF LOF (FILEIDX%) - 0 THEN 

IDX ( 1 ) ■ SEEK (FILEACP%) 

> • assumes INIT set the pointer at the 1 ' st record 

PRINT #FILEIDX%, USING "########"; IDX(l) 'write 

>byte position of 1 ' st record 

I - 1 
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LOOP 


DO WHILE NOT EOF(FILEACP%) 

I - I ♦ 1 

INPUT #FILEACP%, NOAC%, T% 

IF EOF(FILEACP%) THEN PRINT LOG$(SB$, " A*** EOF (FI 

>LEACP% )***") ; I; J; EXIT DO 

FOR J - 1 TO NOAC% 

LINE INPUT #FILEACP%, A$ 'INPUT AIRCRAFT 

IF EOF (FILEACP%) THEN PRINT LOG$(SB$, " B***E 
>OF(FILEACP%) ***") ; I; J: EXIT FOR 

NEXT J 

IF EOF ( FILEACP% ) THEN PRINT LOG$(SB$, " C***EOF(FI 

>LEACP%) ***") ; I; J: EXIT DO 

INPUT #FILEACP%, NOTURNS%, NOSLOTS%, NODICE% 

IF EOF (FILEACP%) THEN PRINT LOG$(SB$, " D***EOF(FI 

>LEACP%) ***") ; I; J; EXIT DO 

NOSYM% - NOTURNS % + NOSLOTS% + NODICE% 

IF NOSYH% <> 0 THEN 

FOR J * 1 TO NOSYM% 

K - J + NOAC% 

LINE INPUT #FILEACP%, A$ 'INPUT SYMBOLS 
IF EOF(FILEACP%) THEN PRINT LOG$(SB$, " 
>E***EOF(FILEACP%) ***") ; I; J: EXIT FOR 


NEXT J 
END IF 

IF EOF ( FILEACP% ) THEN PRINT LOG$(SB$, " F***EOF(FI 

>LEACP%) ***") ; I; J: EXIT DO 

IDX(I) « SEEK ( FILEACP% ) 'write byt 

>e position of i ' th record 

PRINT #FILEIDX%, USING "########"; IDX(I) 

LOOP 

PRINT LOG$ (SB$ , COMPLETED GENERATION OF TIME HISTORY 
> INDEX FILE "); I; " RECORDS "" 

ELSE 

PRINT LOG$(SB$, " ERROR-TIME HISTORY INDEX FILE ALREADY 

> EXISTS. FILE NOT GENERATED") 

CALL FIN 
END IF 

CLOSE FILEIDX% , FILEACP% 


END ' MAIN PROGRAM 


SUB FIN 

I Itlllllltl 

'Purpose \ Close all files, scale and output a few 

> statistics 

' Parameters \ 

'Other input data \ 

' Input files \ 

'Output files \ 

' Other output data \ 



1 Funoti on cal la \ LOG$ 

* Subroutine aalla \ 

1 Coimnenta \ 

1 ########## 

8B$ - " (FIN " 


CLOSE 1, 2, 3, 4, 5, 6, 7, 9 

1 

t 

END SUB ' FIN ' DUMMY PAGE $ ?r? ; PAGE ; EXIT; 
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PROGRAM CRI8MGX 

DEFINT I-N 


DECLARE 

FUNCTION LOG? (SB?, 

A?) 



i * * 

FILE NUMBERS ** 




i 

#1 

#2 

#3 

FLEINDX1 

» 

#4 

#5 

#6 

MRG 

» 

#7 MGX 

#8 

#9 



XXX $ - "## \ \ #### ###« \ \ ##.## #«## «««.«« #«».## ##*.## «## 

>.## ### #### ! ! \\» 

SB$ * '* CRI8MGX (" 

INPUT " Enter full f ile descriptor for index file " , INDEX$ 

OPEN INDEX$ FOR INPUT AS #3 
DO WHILE NOT EOF (3) 

INPUT *3, FILENAME$ 

FILENAMES - RIGHT? (UCASE? (FILENAME?) , 8) 

FILEMRG$ - FILENAME? + " . MRG" : FILEMRG% * 6 
OPEN FILEMRG? FOR INPUT AS #FILEMRG% 1 MERGE FILE 
NUMFIX4 - LOF (FILEMRG%) 'can the file be found 

IF NUMFIX& » 0 THEN 

PRINT LOG? (SB$ , FILEMRG?) ; "FILE NOT FOUND" 

> ' fix this test 

EXIT DO 

ELSE : PRINT LOG? (SB?, "NUMBER OF BYTES ON .MRG FILE IS "); 

> NUMFIX4 

END IF 

FILEMGX? - FILENAME? + " .MGX" : FILEMGX% = 7 
OPEN FILEMGX? FOR APPEND AS #FILEMGX% 

IF LOF (FILEMGX%) <> 0 THEN 

PRINT "Index file already exists", FILENAME? 

EXIT DO 

ELSE 

CLOSE FILEMGX% 

OPEN FILEMGX? FOR RANDOM AS FILEMGX% LEN = 4 
END IF 

DO WHILE NOT EOF (FILEMRG%) 

N£ « SEEK (FILEMRG %) 

PUT #FILEMGX% , , NS, 

LINE INPUT #FILEMRG%, A? 

LOOP 

NOR - LOF (FILEMGX%) / 4 
CLOSE #FILEMRG%, FILEMGX% 

PRINT LOG? (SB?, FILENAME1? + " Number of records ="); NOR 

LOOP 
CLOSE 3 


END ' MAIN PROGRAM ' DUMMY PAGE? ?r? ; PAGE ; EXIT ; 
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PROGRAM CRQSS1 

DEFXNT I-N 

DECLARE SUB PRINTSEQ (1AP0VER%) 

DECLARE SUB FINDAB (IOK%) 

DECLARE SUB FILLBUF () 

DECLARE SUB FIN () 

DECLARE SUB INIT (FILENAME?, FILENAMEl?) 
DECLARE FUNCTION LOG? (SB$, A$) 

DECLARE SUB GETXXB (FILENO% , NEOFMRG%) 


TYPE FIXCOMB 

TGTTYPEN AS INTEGER 
TGTTYPEC AS STRING * 4 
FIXLNGTH AS INTEGER 
PUPDIAM AS INTEGER 
TGTID AS STRING * 3 
DISTANCE AS SINGLE 
FRAMENO AS INTEGER 
TGTX AS SINGLE 
TGTY AS SINGLE 
FIXX AS SINGLE 
FIXY AS SINGLE 
HEADING AS STRING * 3 
COUNTDOWN AS INTEGER 
CONTFIX AS STRING * 1 

>A 


'NON ZERO MEANS HIT 
'TARGET TYPE 


'ID OF CLOSEST TARGET 
'BETWEEN CLOSEST TARGET AND FIXATION 
■TIME HISTORY FRAME # 
'TARGET POSITION 

'FIXATION POSITION 

'DICE 
'DICE 
'IS THIS 

CONTINUATION OF THE PREVIOUS FIXATION 


CROSSCHECK AS STRING * 1 

ZONE AS STRING * 2 'WHAT AREA OF THE TUBE IS THE FIXATION? 
SPEED AS STRING * 1 ' SPLADT S-on, F-off 

AIDON AS STRING * 1 'A-on, F-off 

SPARE AS STRING * 8 
END TYPE 
DIM AAAA$ 

DIM DTEMP1 AS FIXCOMB 
DIM NBUFPARM ( 4 ) , I TRIG 
' SIZE, FIRST, LAST, EOF 

DIM FLAGFUL AS INTEGER, NXRECNO AS INTEGER 

I TRIG - 5: NBUFPARM (1) « 100 

DIM FIXBUF (NBUFPARM (1) + 1) AS FIXCOMB 

DIM AS TORE AS FIXCOMB, ARECNO AS INTEGER, ENDRECNO AS INTEGER, BS 

>TORE AS FIXCOMB, ENDS TORE AS FIXCOMB 


DIM LSEQ, LASTREC, ISEQORD 

DIM APS TORE AS FIXCOMB, BPS TORE AS FIXCOMB, APRECNO, ENDPRECNO , L 

>PSEQ, ISEQTP, ITLAP, ITLAPP 

DIM IAT, IET, ISEQT, NONSEQT, TOTSEQT , TOTLPV, TOTNSEQT ' *TIME 
DIM IAID AS INTEGER 
DIM FILEMRG? 

DIM FILEMRG% 

•DIM NUMINTRACK, NUMOUTTRACK AS INTEGER 

'DIM SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 

i ** FILE NUMBERS ** 

• #1 FILE INDEX #2 MRG # 3 CROSS . PRT (PROUT) 

, #4 #5 LOG #6 

■ #7 CCS #8 #9 
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SPSINVI -1/30: 8B$ - " (CROSS1 " 

' NOSTAT% - 10 

AAAA? - " MAIN-START MAIN LOOP" 

HEADING? - " SEQ* STRT-FNSH TOG TYPE TYPE TGTID TIM 

>E ZONE AID SPD LPOV DSTAB" 

INPUT " Enter full file descriptor for Index file ", INDEX$ 

OPEN INDEX$ FOR INPUT AS #1 
DO WHILE NOT EOF(l) 

INPUT #1, FILENAME $ 

FILENAME1$ - RIGHT? (UCASE$ (FILENAME$) , 8) 

CALL INIT( FILENAME?, FILENAME1$) 

OPEN FILENAME? + ".CCS" FOR OUTPUT AS #7 
'PRINT *7, HEADING? 

LENDRECNO - 0: ISEQORD - 0: TOTSEQT « 0: TOTLPV = 0: TOTNSEQ 

>T = 0 

SUM - 0 

PRINT LOG? (SB$ , " Start"): PRINT #5, LOG? (SB?, " Start") 

DO 

CALL FINDAB(IOK) 

TOTSEQT - TOTSEQT + ISEQT 
TOTNSEQT « TOTNSEQT + NONSEQT 

LAPOVER - O: IF ARECNO « LENDRECNO AND IOK = 1 THEN LAPOVER 

>= 1 

IF LAPOVER - 1 THEN SUM « SUM + AS TORE . FIXLNGTH 
IF IOK « 1 THEN CALL PRINTSEQ (LAPOVER) 

LENDRECNO « ENDRECNO 

IF LASTREC - 1 THEN EXIT DO 

LOOP 

CALL PRINTSEQ (0) 'FLUSH BUFFER 

PRINT " # of MRG records processed" , NXRECNO 

PRINT #5, " # of MRG records processed", NXRECNO 

PRINT " # OF resulting sequences", ISEQORD 

PRINT #5, " # OF resulting sequences”, ISEQORD 

PRINT " Total sequence time", TOTSEQT 

PRINT #5, " Total sequence time", TOTSEQT 

PRINT " Minus Lap over time", -SUM 

PRINT #5, " Minus Lap over time", -SUM 

PRINT " Plus time not in sequence", TOTNSEQT 

PRINT #5, " Plus time not in sequence", TOTNSEQT 

PRINT " Equals total time" , TOTSEQT - SUM + TOTNSEQT 

PRINT #5, " Equals total time", TOTSEQT - SUM + TOTNSEQT 

PRINT LOG? (SB?, " FINISHED SEARCH"): PRINT #5, LOG? (SB?, " F 

> INI SHED SEARCH") 

CLOSE 2, 3, 5, 7 

•CALL FIN 'Close FILES 

LOOP 

CLOSE 

PRINT AAAA? 


END ' MAIN PROGRAM 
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SUB FILLBUF 

-########## 

' Purpose \ Fill the Marge file buffer and set fine 

>1 record 

' pointer 

' Parameter* \ 

'Other input data \ filemrg%, size, first, last in "NBUFPAR 

>M() " 

'Input files \ FILEMRG$ 

'Output files \ 

'Other output data \ last, final in "NBUFPARMO" 

’ Function aalls \ 

' Subroutine aalls \ GETXXB 

' Comments \ 

•########## 


SHARED NBUFPARMO , ITRIG 
' SIZE, FIRST, LAST, EOF 
SHARED FIXBUFO AS FIXCOMB 
SHARED DTEMP1 AS FIXCOMB 
SHARED FILEMRG$ 

SHARED FILEMRO% 

IF NBUFPARM ( 3 ) >- NBUFPARM ( 2 ) THEN 

NIB « (NBUFPARMO) - NBUFPARM ( 2 ) + 1) MOD (NBUFPARM ( 1 ) + 1) 

ELSE 

NIB - (NBUFPARM ( 1 ) - NBUFPARM ( 2 ) + 2 + NBUFPARM ( 3) ) MOD (NBU 

>FPARM ( 1 ) + 1) 

END IF 

IF (NIB < (.8 * NBUFPARM ( 1 ) ) ) AND NBUFPARM ( 4 ) * 0 THEN 'NOT EOF A 

>ND NOT FULL 

NEOFMRG - 0 
I TEMP - NBUFPARM (3) 

FOR I - 1 TO NBUFPARMO) - NIB 

L - ((ITEMP +1-1) MOD (NBUFPARM ( 1 ) +1)) +1 
CALL GETXXB (FILEMRG%, NEOFMRG) 

FIXBUF(L) - D TEMPI 
NBUFPARM (3) - L 

IF NEOFMRG « 1 THEN NBUFPARM (4) « L: EXIT FOR 
NEXT I 
END IF 


END SUB ' FILLBUF 1 


SUB FIN 
•»«•#««##«« 

' Purpose 

' Parameters 

'Other input data 

'Input files 

'Output files. . . . 


\ Close all files, scale and output a few 

> statistics 


\ 

\ 

\ 

\ 


SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK, 
>NUMINTRACK, NUMOUTTRACK 
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1 Othar output data \ 

'Function aalls \ LOG$ 

' Subroutina calls \ 

' Commants \ 

1 ########## 


SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 
SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 
IF NUMINTRACK <> 0 AND NUMOUTTRACK <> 0 THEN 

PRINT LOG$ (SB$ , "NUMBER OF IN TRACK FIXATIONS* ") ; NUMINTRAC 

>K; 1 totals for .txt fila 

PRINT LOG$(SB$, "NUMBER OF OUT TRACK FIXATIONS*"); NUMOUTTRA 

>CK 

PRINT USING "& #####* OR *###.## SECONDS"; LOG$(SB$, "TOTAL 

>TIME IN TRACK IS "); SUMINTRACK; SUMINTRACK / 30 

PRINT USING "& *###*# OR ####.## SECONDS"; LOG$(SB$, "TOTAL 

>TIME OUT TRACK IS "); SUMOUTTRACK; SUMOUTTRACK / 30 

PRINT USING "£ ##*##* OR ##*«.*# SECONDS"; LOG$(SB$, "TOTAL 

>FIXATION TIME IS "); SUMFIXLENGTH; SUMFIXLENGTH / 30 

TT1 - SUMINTRACK / NUMINTRACK / 30 

PRINT USING "£ ###.## OR ##.## SECONDS"; LOG$(SB$, "AVERAGE 

>IN TRACK FIXATION IS "); SUMINTRACK / NUMINTRACK; TT1 

TT1 - SUMOUTTRACK / NUMOUTTRACK / 30 

PRINT USING "£ ###.*# OR ##.## SECONDS"; LOG$(SB$, "AVERAGE 

>OUT TRACK FIXATION IS "); SUMOUTTRACK / NUMOUTTRACK; TT1 

END IF 

CLOSE 2, 3, 4, 5, 6, 7 


END SUB 1 FIN 


SUB FINDAB (IOK) 

SHARED AS TORE AS FIXCOMB, ARECNO AS INTEGER, ENDRECNO AS INTEGER, 

> B STORE AS FIXCOMB, END STORE AS FIXCOMB 

SHARED LSEQ, LASTREC, ISEQORD 
SHARED NBUFPARM ( ) , ITRIG 

SHARED I AT, IET, ISEQT, NONSEQT, TOTSEQT, TOTLPV, TOTNSEQT '*** 

>*TIME 

' SIZE, FIRST, LAST, EOF 
SHARED FIXBUF ( ) AS FIXCOMB 

SHARED FLAGFUL AS INTEGER, NXRECNO AS INTEGER 

IAT ■ O: IET * 0: ISEQT * O: NONSEQT = 0: LTEBT = 0: LTEET = 0 »* 

>* * * TIME 

IOK - 0: LSEQ * 0: ARECNO * 0: ENDRECNO = 0: IHITA = 0: LASTREC = 

> 0 

DO ' FIND A 

IF FLAGFUL <> 1 THEN CALL FILLBUF: FLAGFUL * 1 

J - 0 

FOR I ■ NBUFPARM (2) TO NBUFPARM ( 2 ) + NBUFPARM (1) - 1 
L - ((I - 1) MOD (NBUFPARM ( 1 ) +1)) +1 
J - J + 1 

ITEST * FIXBUF (L) . TG TTY PEN <> 0 AND FIXBUF (L) . TGTTYPEN <> 80 

> AND FIXBUF (L) .TGTTYPEN <> 89 
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NONSEQT - NONSEQT + FIXBUF (L) . FIXLNGTH ' ****TIME 

IF ITEST THEN IHITA ■ 1: IAT - FIXBUF (L) . FIXLNGTH : NONSEQT * 

> NONSEQT - IAT 1 ****TIME 

IF L - NBUFFARM ( 4 ) THEN LASTREC - 1 

IF IHITA - 1 OR LASTREC - 1 THEN EXIT FOR ’ Found 

>A OR LAST REC 

IF L - NBUFPARM (3) THEN EXIT FOR 
NEXT I 

NXRECNO - NXRECNO + J ‘A not found. Load another buffer 

NBUFPARM(2) - (L MOD (NBUFPARM ( 1 ) + 1)) + 1: FLAGFUL = 0 
IF IHITA ■ 1 OR LASTREC - 1 THEN EXIT DO ' Found A 


> OR LAST REC 

LOOP 

IF LASTREC « 1 THEN '****TIME ' HIT LAST RECORD BEFORE A 

IF IHITA - 1 THEN NONSEQT - NONSEQT + IAT 
EXIT SUB 
END IF 

ARECNO - NXRECNO - 1: AS TORE - FIXBUF (L) 

i 

i 


IHITB - 0 
I BREAK ■ 0 

DO ' FIND B 

IF FLAGFUL <> 1 THEN CALL FILLBUF: FLAGFUL = 1 
J “ 0 

FOR I “ NBUFPARM (2) TO NBUFPARM (2) + NBUFPARM ( 1 ) - 1 
L - ((I - 1) MOD (NBUFPARM ( 1 ) +1)) +1 
J - J + 1 

LTEBT « LTEBT + FIXBUF (L) . FIXLNGTH '****TIME 

IF L - NBUFPARM (4) THEN LASTREC - 1 

ITEST3 - FIXBUF (L) .TGTTYPEN - 89 OR (FIXBUF (L) . TGTTYPEN * 0 

>AND FIXBUF (L) .FIXLNGTH > 12) 

IF ITEST3 THEN I BREAK - 1 

■no sequence, Start again with A 

ITEST1 - FIXBUF (L) .TGTTYPEN = 80 OR (FIXBUF (L) . TGTTYPEN = 0 

>AND FIXBUF (L) .FIXLNGTH < 13) 

'blink or unk < 13 

ITEST2 - FIXBUF (L) .TGTTYPEN ® AS TORE . TGTTYPEN AND FIXBUF (L) . 

>TGTID * ASTORE . TGTID 

'Back to A 

IF NOT ITEST1 AND NOT ITEST2 AND NOT ITEST3 THEN IHITB = 1 

-> ' Found B 

IF IHITB - 1 OR LASTREC * 1 OR I BREAK = 1 THEN EXIT FOR 
IF L - NBUFPARM (3) THEN EXIT FOR 
NEXT I 

NXRECNO - NXRECNO -I- J ' B not found, Load another buffer. 
NBUFPARM (2) ■ (L MOD (NBUFPARM ( 1 ) +1)) +1: IF J > ITRIG TH 

>EN FLAGFUL * 0 

IF ITEST3 OR IHITB - 1 OR LASTREC = 1 THEN EXIT DO 


LOOP 


END FIND B 


IF IHITB - 1 THEN 

NXRECNO « NXRECNO - 1 
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NBUFPARM (2) ■ 1 + (NBUFPARM ( 2 ) + NBUFPARM ( 1 ) - 1) MOD (NBUFP 

>ARM (1) + 1) 

ENDRECNO - NXRECNO: BSTORE - FIXBUF(L) 

I OK - 1: LSEQ - 1 
END 8 TORE - BSTORE 

ISEQT - IAT + LTEBT '****TIME 

ELSE 

NONSEQT - NONSEQT + LTEBT + IAT ' ****TIME 

'IF LASTREC <> 1 THEN NONSEQT - NONSEQT - FIXBUF(L) . FIXLNGTH 
END IF 

IF LASTREC - 1 OR IBREAK - 1 THEN EXIT SUB 


IF FLAGFUL <> 1 THEN CALL FILLBUF: FLAGFUL - 1 
J - 0 

FOR I - NBUFPARM (2) + 1 TO NBUFPARM (2) -I- NBUFPARM ( 1 ) - 1 
L - ((I - 1) MOD (NBUFPARM ( 1 ) + 1) ) + 1 
J - J + 1 

IF L - NBUFPARM (4) THEN LASTREC = 1 
LTEET « LTEET + FIXBUF(L) .FIXLNGTH 

ITEST1 - FIXBUF(L) .TGTTYPEN - 80 OR (FIXBUF (L) . TGTTYPEN = 0 

>AND FIXBUF (L) .FIXLNGTH < 13) 

ITEST2 - FIXBUF (L) .TGTTYPEN “ AS TORE . TGTTYPEN AND FIXBUF (L) . 

>TGTID * AS TORE . TGTID 

ITEST3 « FIXBUF (L) .TGTTYPEN - 89 OR (FIXBUF (L) . TGTTYPEN « 0 

>AND FIXBUF (L) .FIXLNGTH > 12) 

ITEST4 - FIXBUF (L) .TGTTYPEN - BSTORE . TGTTYPEN AND FIXBUF (L) . 

>TGTID = BSTORE. TGTID 

IF LASTREC <> 1 AND NOT (ITEST2 OR I TESTS OR ITEST4) THEN 
IF NOT ITEST1 THEN ' Third target. 

EXIT SUB 
END IF 

ELSE 

EXIT FOR 'EOF or HIT or BREAK 
END IF 

IF L « NBUFPARM (3) THEN EXIT FOR 'buffer empty 
NEXT I 

NXRECNO - NXRECNO + J 

NBUFPARM ( 2 ) » L: IF J > ITRIG THEN FLAGFUL = 0 
IF (ITEST2 OR ITEST4) THEN ' A or B 

ITEST5 - FIXBUF (L) .TGTTYPEN = END S TORE . TGTTYPEN AND FIXBUF (L 

>). TGTID = ENDS TORE . TGTID 

IF NOT ITEST5 THEN LSEQ = LSEQ + 1: END STORE = FIXBUF (L) 
ISEQT » ISEQT + LTEET: LTEET « 0 • ****TIME 

IF LASTREC * 1 THEN EXIT SUB 
ELSE 

NONSEQT « NONSEQT + LTEET '****TIME 

NXRECNO ■> NXRECNO + 1 'advance poinnters 

NBUFPARM (2) - 1 + NBUFPARM ( 2 ) MOD (NBUFPARM (1) + 1) 

EXIT SUB 
END IF 

ENDRECNO * ENDRECNO + J 

LOOP 
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PRINT "NXRECNO - ENDRECNO 
PRINT "EXIT SUB" 

■ 

i 

END SUB 1 FINDAB 


SUB INIT (FILENAMES, FILENAMES) 

'########## 

'Purpose \ Initialize parameters 


on both circular 
>buffers 


• \ Initialize sums to zero. Let user choose partic- 

' \ ular run for analysis. Determine aid type for 

1 \ subsequent branching. Open FILESCN$ , FILEDAT$, 

' \ FILEACP$ and store their lengths. 

' Parameters \ none 

' Other input data \ 

'Input files \ FILESCN$, FILEDAT$ , FILEACP$ 

'Output files \ 

'Other output data \ File names £ unit #'s. Initialized vari 

>ables, slims 

' \ and pointers and the branch variable IAID 

'Function calls \ LOO$ 

'Subroutine calls \ none 

’ C ow nents \ I don't think I'm using this BOP stuff. 

•########## 

SHARED NBUFPARM ( ) , ITRIG 

• SIZE, FIRST, LAST, EOF 

SHARED FLAGFUL AS INTEGER, NXRECNO AS INTEGER 
SHARED FILEMRG$ 

SHARED FILEMRG% 

SHARED IAID AS INTEGER 

STAR$ « " ******************************************************* 

>*★*******•< 


SB$ - "(INIT " 

NBUFPARM (2) - 1: NBUFPARM ( 3 ) = NBUFPARM ( 1 ) + 1: NBUFPARM ( 4 ) = 0 
NXRECNO - 1 


SELECT CASE MID$ (FILENAME1$ , 5, 1) 

CASE "M" 

IAID « 1 
CASE "D" 

IAID - 2 
CASE "G" 

IAID - 3 
CASE "S" 

IAID - 4 
CASE ELSE 

IAID - 9 

END SELECT 

IF IAID “ 9 THEN PRINT LOG$(SB$, "CASE FROM FILENAME MUST BE MN,D 

>C,GR or SL") : PRINT : STOP 
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IAID1 - VAL(MID$ (FILENAME1$, 7, 1)) 

17 IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOGS (SB$ , "CASE FROM FILE 

>NAME MUST BE 170 OR 210"): PRINT : STOP 

IAID - IAID * 10 + IAID1: PRINT STARS : PRINT FILENAMES, IAID 
FILEMRGS - FILENAME $ + " .MRS" : FILEMRO% ■ 2 
OPEN FILEMR3$ FOR INPUT AS #FILEMRG% 

LOGFILE$ - FILENAMES + ".LOO": LOGFILE% « 5 
OPEN LOOFILE$ FOR APPEND AS #LOGFILE% 

PRINT *5, STAR$ : PRINT *5, FILENAMES, IAID 
OPEN "CRO 88 .PRT" FOR OUTPUT AS *3 
CALL FILLBUF: FLAGFTJL - 1 

I 

I 

KHD SUB 1 IHIT 


SUB PRINTSEQ (LAPOVER) 

SHARED IAID AS INTEGER 

SHARED AS TORE AS FIXCOMB, ARECNO AS INTEGER, ENDRECNO AS INTEGER, 

> B STORE AS FIXCOMB, ENDSTORE AS FIXCOMB 

SHARED APSTORE AS FIXCOMB, BPSTORE AS FIXCOMB, APRECNO , ENDPRECNO 

>, LPSEQ , ISEQTP, ITLAP, ITLAPP 

SHARED LSEQ, LASTREC, ISEQORD 

SHARED IAT, IET, ISEQT, NONSEQT, TOTSEQT, TOTLPV, TOTNSEQT ***** 

>TIME 

XXXI $ - " «««# #«#« #««# ## ## ##" 

XXX2$ -" \ \\ \ \\\\ ####" 

XXX3$ - " ? ! ! ! " 

XXX4$ - » ?! «««« ««.«" 

XXX5$ - " \ \ \ \ #### ####" 

ITLAP - 0 

ISEQORD - ISEQORD + 1 
IF LAPOVER - 1 THEN 

ITLAP - AS TO RE . FIXLNGTH 
ITLAPP - ITLAPP + AS TORE . FIXLNGTH 
END IF 

IF ISEQORD > 1 THEN 

D - SQR( (APSTORE. TGTX - BPSTORE . TGTX) A 2 + (APSTORE . TGTY - 

>B PS TORE .TGTY) A 2) 

ZA$ » LEFTS (APSTORE . ZONE , 1): ZB$ * LEFT$ (BPSTORE . ZONE , 1) 
PRINT #7, USING XXXI $; ISEQORD - 1; APRECNO; ENDPRECNO; LPSE 

>Q; APSTORE. TGTTYPEN; BPSTORE . TGTTYPEN; 

PRINT #7, USING XXX2$; APSTORE . TGTTYPEC; BPSTORE . TGTTYPEC ; A 

> PS TORE . TGTID ; BPSTORE . TGTID; ISEQTP; 

PRINT #7, USING XXX3$ ; ZA$; ZB$ ; APSTORE . AIDON ; BPSTORE. AIDO 

>N; 

PRINT #7, USING XXX4$; APSTORE . SPEED; BPSTORE . SPEED ; ITLAPP; 

> D; 

PRINT #7, USING XXX5$; APSTORE . HEADING; BPSTORE . HEADING; APS 

>TORE. COUNTDOWN; BPSTORE . COUNTDOWN 

TOTLPV - TOTLPV + ITLAPP 
END IF 

APSTORE - ASTORE: BPSTORE - BSTORE : APRECNO = ARECNO: ENDPRECNO = 
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> ENDRECNO 

LPSEQ - LSEQ: ISEQTP ■ ISEQT: ITLAPP = ITLAP 
END SUB 
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EBQGRAM CUT2Q 

•DEFINT I-N 
START: 

TYPE DDAT 

TT AS INTEGER 
XX AS INTEGER 
YY AS INTEGER 
PD AS INTEGER 
FT AS INTEGER 
END TYPE 
DIM XI AS DDAT 
DIM X2 AS DDAT 
DIM X3 AS DDAT 

AA$ » •• ********************************************************** 
AB$ - " CUT20.BAS " + DATE$ + " " + TIME$ 

AC$ “ " In aoaordano* with the 8/28/91 manto from DJC to RBF 20 r 

>e cords from" 

AD$ “ " 14 files need to be cut out. The record (s) taken from th 

>is file are" 

AE$ - " listed here. " 

INPUT " Enter full file descriptor for index file ", INDEX$ 

OPEN INDEX$ FOR INPUT AS #3 'Input directives 

LGTOT$ - LEFT$ ( INDEX$ , LEN ( INDEX$ ) - 8) + "LOG. TOT" 

OPEN LGTOT$ FOR OUTPUT AS *4 'Concatenated log file 

DO WHILE NOT EOF (3) ' Loop through one subject's files #3 

PRINT : PRINT 

INPUT #3, FLE$ ' FILE NAME 

IF FLE$ « "" THEN EXIT DO 

INPUT *3, NOD ' NUMBER OF DELETIONS 

FOR I - 1 TO NOD 

INPUT #3, NOR (I) 'Record #'s to be deleted 

NEXT I 

NOR (NOD + 1) = 0 
NN$ - FLE$ + " . DT2 " 

Nl$ - FLE$ + ".DTI" 

LG$ ■ FLE$ + ".LOG" 

OPEN LG$ FOR APPEND AS #5 
PRINT NN$ 

T* - 0 

ON ERROR GOTO NOSUCHFILE 

OPEN Nl$ FOR INPUT AS #1 'Can find .DTI file?? #1 

ON ERROR GOTO 0 

IF T% ■ 1 THEN GOTO START 

CLOSE 1 

OPEN "R", #1, Nl$ , 10 ' Open .DTI in random mode 

LENFLE% - LOF(l) / 10 

DN1 ■ LENFLE% ' Floating point 

OPEN NN$ FOR RANDOM AS #8 LEN = 10 

IF LOF(8) <> 0 THEN STOP ' Open DT2 in random mode #8 
PRINT #4, AA$: PRINT #4, AB$ , FLE$ : PRINT #4, 

PRINT #4, AC$ : PRINT #4, AD$ : PRINT *4, AE$ • Preamble #4 

PRINT #5, AA$ : PRINT #5, AB$ , FLE$ : PRINT #5, 

PRINT# 5, AC$: PRINT #5, AD$ : PRINT #5, AE$ • Preamble #5 



K « 1 


FOR I - 1 TO LENFLE% ’ FILTER #1 INTO #8 
SET #1, , XI 

IF I <> NOR(K) THEN 
PUT #8, , XI 

ELSE 


K - K + 1 

PRINT I; XI. TT; XI. XX; XI. YY; XI. PD; XI. FT 

PRINT "TO SAVE THIS RECORD TYPE IN NO. OTHERWISE C/R" 

INPUT A$ 

IF UCASE$(LEFT$(A$, 1)) - "N" THEN 

PUT #8, , XI 

ELSE 

PRINT #4, USING " The following record , ##### ,has been 

> deleted" ; I 


PRINT #4, I; XI. TT; XI. XX; XI. YY; XI. PD; XI. FT 

PRINT #5, USING "The following record , ##### ,has been 

> deleted"; I 

PRINT #5, I; XI. TT; XI. XX; XI. YY; XI. PD; XI. FT 
END IF 
END IF 
NEXT I 

CLOSE 1, 5, 8 
LOOP 

CLOSE 3, 4 


END 

NOSUCHFILE : 

PRINT "Couldn't find input file "; FLE$ 
T% - 1 
RESUME NEXT 


i 
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PROGRAM DMTASE 

DECLARE FUNCTION LOG$ (SB$, A$) 

DEFINT I-N 
NOR% - 1 
START: 

PRINT " This program lists rsoords from FASA Tims History files." 
DO 

PRINT : PRINT 'CLS ? 

INPUT " ENTER TIME HISTORY FILE NAME, NO EXTENSION ", FILE 

>NAME$ 

IF FILENAME$ ■ "" THEN PRINT : PRINT : PRINT : STOP 
SB$ - " (DMPIDX " 

FILEACP? - FILENAME? + ".ACP": FILEACP% = 3' append extension 
FILEIDX? - FILENAME? + " . IDX" : FILEIDX% = 4 

t . 

T* - 0 
CLOSE 

ON ERROR GOTO NOSUCHFILE 

OPEN FILEACP? FOR INPUT AS FILEACP% 

OPEN FILEIDX? FOR INPUT AS FILEIDX% 

ON ERROR GOTO 0 

IF T% - 1 THEN GOTO START 

LENFLE% « LOF(FILEIDX%) / 10 

PRINT "The number of 4 -second print outs on the file is : "; 

> LENFLE% 


DO 

PRINT 

INPUT "STARTING RECORD # ? ",* RNI% 

IF RNI% O 0 OR RNI* > LENFLE% THEN 

PRINT " Record number out of range . " 

EXIT DO 
END IF 

FOR 1% « 1 TO NOR% 

SEEK FILEIDX%, (RNI% + 1% - 2) *10+1 

INPUT #FILEIDX%, ACPPOS4 
SEEK #FILEACP%, ACPPOSfi 
INPUT #FILEACP%, NOAC%, T% 

IF EOF (FILEACP%) THEN PRINT LOG? (SB?, " A*** EOF (FILEACP 

>%)***"); I; J: EXIT DO 

PRINT NOAC%; " Aircraft " Time is T% 

FOR J ■ 1 TO NO«E% 

LINE INPUT #FILEACP%, A? 'INPUT AIRCRAFT 

IF EOF (FILEACP%) THEN PRINT LOG? (SB?, " B***EOF(FI 

>LEACP%) ***") ; I; J: EXIT FOR 

PRINT A? 

NEXT J 

IF EOF(FILEACP%) THEN PRINT LOG? (SB? , " C** *EOF (FILEACP 

>%)***"); I; J: EXIT DO 

INPUT #FILEACP% , NOTURNS%, NOSLOTS%, NODICE% 

IF EOF (FILEACP%) THEN PRINT LOG? (SB?, " D***EOF (FILEACP 

>%)***"); I; J: EXIT DO 

PRINT NOTURNS%, NOSLOTS%, NODICE% 

NOSYM% * NOTURNS % + NOSLOTS% + NODICE% 



IF NOSYM% <> 0 THEN 

FOR J - 1 TO NOSYM% 

K - J + NOAC% 

LINE INPUT #FILEACP%, A$ 'INPUT SYMBOLS 

IF EOF(FILEACP%) THEN PRINT LOG$(SB$, " E***E 

>OF(FILEACP%) ***") ; I; J: EXIT FOR 

PRINT A$ 

NEXT J 
END IF 

IF EOF(FILEACP%) THEN PRINT LOG$(SB$, " F***EOF(FILEACP 

>%)***"); I; J: EXIT DO 

NEXT 1% 

LOOP 
CLOSE 1 


LOOP 

N08UCHFILE : 

PRINT "Couldn't find input fila 
T% » 1 
RESUME NEXT 


tf • 


FLE$ 


PROGRAM DMPDAT 

8TART: 

PRINT " Thia program liata racorda from oculomatar .DAT filaa. 
DO 

PRINT : PRINT 

INPUT "antar fila nama" ; FLE$ 

IF FLE$ ■ "" THEN END 
T% m 0 

ON ERROR GOTO NOSUCHFILE 
OPEN FLE$ FOR INPUT AS #1 
ON ERROR GOTO 0 
IF T% ■ 1 THEN GOTO START 
CLOSE 1 

OPEN "R", #1, FLE$ , 8 

FIELD #1, 2 AS A$, 2 AS B$ , 2 AS C$, 2 AS D$ 

LENFLE% - LOF(l) / 8 

PRINT "Tha numbar of raoorda on tha fila ia : " ; LENFLE% 
DO 

PRINT 

INPUT "STARTING RECORD # RNI% 

IF RNI% ■ 0 THEN EXIT DO 
INPUT "LAST RECORD # " ; RNMAX% 

IF RNMAX% - 0 THEN EXIT DO 

IF RNMAX% < 0 OR RNMAX% > LENFLE% THEN RNMAX% = LENFLE% 
IF RNI% < 0 OR RNI% > RNMAX% THEN RNI% = RNMAX% 

FOR 1% - RNI% TO RNMAX% 

GET #1, 1% 

PRINT 1%, CVI (A$) , CVI (B$) , CVI (C$) , CVI (D$) 

NEXT 1% 

LOOP 
CLOSE 1 


LOOP 

NOSUCHFILE: 

PRINT "Couldn't find input fila FLE$ 

T% - 1 
RESUME 


NEXT 



PROGRAM A1HIST 

'Started 1/6/93 to generate histograms of fixation times on Tag 


DECLARE SUB HISTOGRAM () 

DECLARE SUB PROUT2 () 

DECLARE SUB ACCUMULATE () 

DECLARE SUB INIT (filename#, filenamel$) 

DECLARE FUNCTION LOQ$ (SB$, A$) 

DECLARE FUNCTION LOGS$ (SB$, A$) 

DECLARE SUB SEARCH () 

DECLARE SUB GETXXA (FILENO%) 

DEFINT I-N 

CONST pif - 3.14159 

CONST SF! - .472, XOFF! - -5.04, YOFF! - -.9, cpi ! - 204.8, alpha 


>! 

CONST big! - 3», little! - 1! 

TYPE FIXCOMB 

TG TTY PEN AS INTEGER 
TGTTYPEC AS STRING * 4 
FIXLNGTH AS INTEGER 
PUPDIAM AS INTEGER 
TGTID AS STRING * 3 
DISTANCE AS SINGLE 
FRAMENO AS INTEGER 
TGTX AS SINGLE 
TGTY AS SINGLE 
FIXX AS SINGLE 
FIXY AS SINGLE 
HEADING AS STRING * 3 
COUNTDOWN AS INTEGER 
CONTFIX AS STRING * 1 


* -11.5 * pi! / 180, runoff! * -.34 


'NON ZERO MEANS HIT 
'TARGET TYPE 


■ID OF CLOSEST TARGET 
'BETWEEN CLOSEST TARGET AND FIXATION 
'TIME HISTORY FRAME # 

'TARGET POSITION 

'FIXATION POSITION 

'DICE 

'DICE 

'IS THIS A CONTINUATION OF TH 
>E PREVIOUS FIXATION 


CROSSCHECK AS STRING * 1 

ZONE AS STRING * 2 'WHAT AREA OF THE TUBE IS THE FIXATION? 
SPEED AS STRING * 1 ' SPLADT S-on, F-off 

AIDON AS STRING * 1 'A-on, F-off 

SPARE AS STRING * 8 
END TYPE 
DIM AAAA$ 

DIM frmt$ 

frmt$ - "## / / #### #### / / ###.## #### ###.## ###.## ###.## # 

>##.## ### ##« ! ! //" 


DIM XX AS FIXCOMB 
DIM XXX$ 

DIM IAID AS INTEGER 

DIM BI1P (1 TO 7) AS INTEGER’ Buffered Input 1 
DIM BI2P (1 TO 7) AS INTEGER ' Buff ered Input 2 
DIM BOP (1 TO 7) AS INTEGER 'Buffered Output 

DIM FILEDUM$, FILEMRG$, filebcl$ 

DIM FILEDUM%, FILEMRG% , filebcl% 

DIM NUMINTRACK, NUMOUTTRACK AS INTEGER 
DIM SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 
■ ** FILE NUMBERS ** 

' #1 FILE INDEX #2 #3 'modified 1/5/93 
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' #4 #5 #6 

' #7 DUM #8 BC1 *9 

DIM PAGE$ , FONT? 

DIM SPSINVt , SB? 

SPSINV! -1/30: SB? - « (A1HIST " 

NOSTAT% - 10 

DIM STATXS (NOSTAT% ) , STATYS (NOSTAT%) AS SINGLE 
DIM STATID (NOSTAT%) AS STRING * 4 

DATA "DEN ","IOC " , "OM " , "KEAN" , " FLTS" , "WIVS" , "BYSN" , "TROZ" , "DRK 

X>" , " JASN" 

FOR I - 1 TO NOS TAT % : READ STATID (I) : NEXT I 

DATA 2.38,-19.49,-0.3,19.44,10.92,-10.24, -23 .07,-8.22,29.42,14.67 
FOR I - 1 TO NOSTAT% : READ STATXS (I) : NEXT I 

DATA -.63,24.92,6.1,28.79,14.1,14.1,-26.08,-11.24,-19.56,-9.23 
FOR I - 1 TO NOSTAT% : READ STATYS (I) : NEXT I 
PRTCONTROL? - CHR?(33) + "R" + CHR? (33) 

PAGE? » PRTCONTROL? + PAGE ; EXIT; " ' OFFICE 

FONT? - PRTCONTROL? + RES; PONT 62; EXIT;" 'OFFICE 

DIM SINALt, COSAL! 

SINAL! - SIN (alpha!): COSAL! - COS (alpha!) 

XXX? - »## \ \ #### ###« \ \ «#.## «##« ««#.«* ###.«# «##.«# «#« 

>.## ### #### ! ! \\" 


DIM NCTR AS INTEGER, NORT AS INTEGER, NOBKT AS INTEGER 
NOBKT - 15: NOC - 15 

DIM AACOUNT (NOC , 3) AS LONG, AASUM(NOC, 3) AS LONG, AASUMSQ (NOC , 

>3) AS LONG 

DIM AAALL (NOC , NOBKT %) AS LONG, AANOTON (NOC , NOBKT %) AS LONG, AAO 

>N (NOC, NOBKT %) AS LONG 

DIM BBCOUNT (3) AS LONG, BBSUM(3) AS LONG, BBSUMSQ(3) AS LONG 
DIM BBALL ( NOBKT %) AS LONG, BBNOTON (NOBKT%) AS LONG, BBON (NOBKT%) 

>AS LONG 


DIM AVG AS SINGLE, STD AS SINGLE 

FOR I - 1 TO 3: BBCOUNT(I) - 0: BBSUM(I) - 0: 

FOR I - 1 TO NOBKT % : BBALL (I) = 0: BBNOTON (I) 

NCTR « 0 


BBSUMSQ (I) - 0: NEX 

>T I 

= 0: BBON (I) = 0: N 
>EXT I 


AAAA? - " MAIN-START MAIN LOOP" 

INPUT ” Entar Yuli fila daacrlptor for indax file 
OPEN indax? FOR INPUT AS *1 
INDEX1? - LEFT? (indax?, LEN (indax?) - 4) 
filabcl? - INDEX1? + ".BC1": filabcl% = 8 
OPEN filabcl? FOR OUTPUT AS #fi label* 

PRINT *filabcl%, LOGS? (SB?, " ") 

DO WHILE NOT EOF(l) 

INPUT #1, filanama? 

IF LEN (filanama?) < 8 THEN EXIT DO 
filanamal? - RIGHT? (UCASE? (filename?) 

CALL INIT (filename? , filenamel?) 

NCTR - NCTR + 1 


index? 


'modified 

'modified 

'modified 


1/5/93 

1/5/93 

1/5/93 


■modified 1/5/93 


8 ) 
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FOR I - 1 TO 3 

AACOUNT (NCTR, I) - 0: AASUM (NCTR, I) - 0: AASUMSQ (NCTR, I) - 

> 0: NEXT I 

FOR I - 1 TO NOBKT% 

AAALL (NCTR, I) - 0: AANOTON (NCTR, I) - 0: AAON (NCTR, I) - 0: 

> NEXT I 

CALL SEARCH 

PRINT #filabal% , filanamal$; " # of rac's- "; NORT; 

PRINT #f±labcl% , " Tag Avg £ Std« "; AVO; STD 
PRINT filanamal$; " # of rac'a- "; NORT; 

PRINT " Tag Avg £ Std* AVO; STD 

LOOP 

CALL PROUT2 

PRINT # f i label % , I'*********************************************** 

>***★★★*★★★**" 

CLOSE 1, 8 'modifiad 1/5/93 

PRINT AAAA$ 


END ' MAIN PROGRAM 1 DUMMY PAGE $ ?r? ; PAGE; EXIT; 


SUB ACCUMULATE 

SHARED XX AS FIXCOMB 


SHARED AACOUNTO AS LONG, AASUM () AS LONG, AASUMSQ () AS LONG 

SHARED AAALL () AS LONG, AANOTON ( ) AS LONG, AAON ( ) AS LONG 

SHARED BBCOUNT ( ) AS LONG, BBSUM() AS LONG, BBSUMSQO AS LONG 

SHARED BBALLO AS LONG, BBNOTON ( ) AS LONG, BBON ( ) AS LONG 

SHARED AVG AS SINGLE, STD AS SINGLE 

SHARED NCTR AS INTEGER, NORT AS INTEGER, NOBKT AS INTEGER 


AACOUNT (NCTR, 1) - AACOUNT (NCTR, 1) + 1 

AASUM (NCTR, 1) - AASUM (NCTR, 1) + XX . FIXLNGTH 'Sum 

DUMLONG£ - XX. FIXLNGTH: DUMLONG£ > DUMLONG£ * DUMLONG£ 

AASUMSQ (NCTR, 1) * AASUMSQ (NCTR, 1) + DUMUJNGfi 'Sum of A 2 

BBCOUNT ( 1 ) - BBCOUNT (1) + 1: BBSUM(l) “ BBSUM(l) + XX. FIXLNGTH 

>» Sum 

BBSUMSQ ( 1 ) - BBSUMSQ ( 1 ) -I- DUMLONGfi 'Sum of A 2 

IF XX.AIDON - "1" THEN 

AACOUNT (NCTR, 3) = AACOUNT (NCTR, 3) + 1 

AASUM (NCTR, 3) - AASUM (NCTR, 3) + XX. FIXLNGTH 'Sum 

AASUMSQ (NCTR, 3) - AASUMSQ (NCTR, 3) + DUMLONG£ 'SOSQ'S 

BBCOUNT (3) ■ BBCOUNT (3) + 1: BBSUM(3) = BBSUM(3) + XX.FIXLNG 

>TH ' Sum 

BBSUMSQO) - BBSUMSQ (3) + DUMLONGfi 'Sum of A 2 

ELSE 

AACOUNT (NCTR, 2) = AACOUNT (NCTR, 2) + 1 

AASUM (NCTR, 2) » AASUM (NCTR, 2) + XX. FIXLNGTH ' Sum 

AASUMSQ (NCTR, 2) = AASUMSQ (NCTR, 2) + DUMLONGfi 'SOSQ'S 

BBCOUNT (2) - BBCOUNT (2) + 1: BBSUM(2) = BBSUM(2) + XX.FIXLNG 

>TH ' Sum 

BBSUMSQ (2) ■ BBSUMSQ (2) + DUMLONGfi 'Sum of A 2 
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END IF 
END SUB 


SUB HISTOGRAM 

SHARED XX AS FIXCOMB 
SHARED IAID AS INTEGER 


SHARED AACOUNTO AS LONG, AASUM() AS LONG, AASUMSQO AS LONG 

SHARED AAALL () AS LONG, AANOTON ( ) AS LONG, AAON ( ) AS LONG 

SHARED BBCOUNT ( ) AS LONG, BBSUM() AS LONG, BBSUMSQ ( ) AS LONG 

SHARED BBALL () AS LONG, BBNOTON < ) AS LONG, BBON () AS LONG 

SHARED AVG AS SINGLE, STD AS SINGLE 

SHARED NCTR AS INTEGER, NORT AS INTEGER, NOBKT AS INTEGER 


FT * XX. FIXLNGTH : FT ■ FT / 30: FT ■ (FT - AVG) / STD' NORMALIZE F 

>IXATION TIME 

SELECT CASE FT 

CASE IS < -3.25 

1-1 'CENTER ON -3.5 

CASE IS < -2.75 

I a 2 'CENTER ON -3.0 

CASE IS < -2.25 

I - 3 'CENTER ON -2.5 

CASE IS < -1.75 

1-4 'CENTER ON -2.0 

CASE IS < -1.25 

1-5 'CENTER ON -1.5 

CASE IS < -.75 

1-6 'CENTER ON -1.0 

CASE IS < -.25 

1-7 'CENTER ON -0.5 

CASE IS < .25 

1-8 'CENTER ON 0.0 

CASE IS < .75 

1-9 'CENTER ON 0.5 

CASE IS < 1.25 

I - 10 'CENTER ON 1.0 

CASE IS < 1.75 

I - 11 'CENTER ON 1.5 

CASE IS < 2.25 

1-12 'CENTER ON 2.0 

CASE IS < 2.75 

1-13 'CENTER ON 2.5 

CASE IS < 3.25 

1-14 'CENTER ON 3.0 

CASE IS >« 3.25 

1-15 'CENTER ON 3.5 

END SELECT 

AAALL (NCTR , I) - AAALL (NCTR, I) + 1: BBALL (I) = BBALL (I) + 1 
IF XX.AIDON - "1" THEN 

AAON (NCTR, I) ■ AAON (NCTR, I) + 1: BBON (I) ■ BBON (I) + 1 
ELSE 
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AANOTON (NCTR, I) - AANOTON (NCTR, I) + 1: BBNOTON ( I ) « BBNOTON (I) 

>+ 1 

END IF 
END SUB 


SUB INIT (filenames, filenamelS) 

■########## 

' Purpoae \ Initialize paramatara on both circular 

>buffera 

' \ Initializa auma to zaro. Lat uaar chooaa parti c- 

' \ ular run for analyaia. Da tannine aid typa for 

' \ aubaaquant branching. Opan FILESCN$, FILEDAT$ , 

' \ FILEACP$ and atora their langtha. 


' Paramatara \ nona 

' Othar input data \ 

’Input filaa \ FILESCN$, FILEDAT$, FILEACP$ 

'Output filaa \ 

'Othar output data \ Fila names 6 unit #'a. Initializad vari 

>ablaa, auma 

' \ and pointara and the branch variable IAID 

' Function calla \ LOG$ 

' Subroutine calla \ nona 

'Commanta \ I don't think I'm uaing this BOP atuff. 

•########## 

SHARED BI1P() AS INTEGER ’ Buf f eredlnput 1 


SHARED BI2P() AS INTEGER ' Buf f aradlnput 2 

SHARED BOP() AS INTEGER ' Buf f eredOutput 

SHARED FILEDUM$, FILEMRG$, filabcl$ 

SHARED FILEDUM%, FILEMRG% , filabcl% 

SHARED IAID AS INTEGER 

SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 

SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 

SB$ ■ " (INIT " 

' SIZE , FIRST , LAST , TRIG , NREC , NEOF, PI 
I - nacanbuf : BI1P(1) - I: BI1P(2) * 0: BI1P(3) « 1: BI1P(4) » .2 

> * I 

BI1P (5) - .7 * I: BI1P (6) - 0: BI1P(7) « 1 
'FOR L - 1 TO 7: print BI1P(L) : NEXT L 

I - nfixbuf: BI2P(1) « I: BI2P(2) - 0: BI2P(3) « 1: BI2P(4) * .2 

>* I 

BI2P (5) - .7 * I: BI2P(6) * 0: BI2P(7) = 1 

I - nfixbuf: BOP(l) - I: BOP (2) » 1: BOP (3) = 1: BOP (4) = .9 * I 
BOP (5) - .8 * I: BOP (6) - 0: BOP(7) = 1 

I 

SELECT CASE MID$ (f ilenamel$ , 5, 1) 

CASE "M" 

IAID - 1 
CASE "D" 

IAID - 2 
CASE "G" 

IAID - 3 
CASE "S" 
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IAXD - 4 
CASE ELSE 

XAXD - 9 

END SELECT 

Xr XAXD ■ 9 THEN PRINT LOO$(SB$, "CASE FROM FILENAME MUST BE MN,D 

>C,GR or SL") : PRINT : STOP 

IAID1 - VAL(MID?(f±lenamel?, 7, 1)) 

IF IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOG? (SB?, "CASE FROM FILE 

>NAME MUST BE 170 OR 210") : PRXNT : STOP 

XAXD - IAXD * 10 + IAID1: PRINT IAID 

' FILEDUM$ ■ FILENAME $ + ".DUM": FI LEDUM % - 7 'modified 1/5/93 
FXLEDUM$ ■ filename? + ".MRS": FILEDUM% m 7 ' modified 1/5/93 

FXLEMRG? - filename? + ".MRS": FILEMRO% - 6 

* FILEBC1 $ - filename? + ".BC1": FILEBC1% - 8 ' COMMENT 

>: FILE NAME SHOULD LOOK LIKE 

t "C:\FASAFILE\CRONE\CC10SLCE" 


END SUB ' INIT 1 DUMMY PAGE? ? r? ; PAGE ; EXIT ; 


SUB PROUT2 

SHARED FI LEDUM? , FILEMRG? , filebcl? 
SHARED FI LEDUM % , FILEMRO% , filebcl% 
SHARED 8PSXNVI , SB? 


SHARED AACOUNT ( ) AS LONS, AASUM ( ) AS LONG, AASUMSQ () AS LONG 

SHARED AAALL ( ) AS LONG, AANOTON ( ) AS LONG, AAON () AS LONG 

SHARED BBCOUNT ( ) AS LONG, BBSUM ( ) AS LONG, BBSUMSQ ( ) AS LONG 

SHARED BBALL ( ) AS LONG, BBNOTON ( ) AS LONG, BBON ( ) AS LONG 

SHARED AVG AS SINGLE, STD AS SINGLE 

SHARED NCTR AS INTEGER, NORT AS INTEGER, NOBKT AS INTEGER 


SB? - " (PROUT2 " 
PRXNT «filebal% , 


ALL " : F302? 

ON " 

Sum 9um*q " 

F301? , F302? , F303? 
F3? ; F3? ; F3? 
«##»#«. ########•" 


F301? - " 

F303? - " 

F3? - " n 
PRXNT #filebal% , 

PRXNT #filebel%, 

F4A? - " #««««. 

FOR J - 1 TO NCTR 

FOR I - 1 TO 3 

PRINT #filebcl%, USING F4A? ; AACOUNT (J, 


OFF 


I); AASUM (J , I); AAS 
>UMSQ(J, I) ; 


NEXT X 

PRXNT *filebcl%, 

NEXT J 

PRINT #f±lebol%, 

PRXNT #filebal%, " Coirpoaite Tag Avg & Std» " 
FOR I - 1 TO 3 

IF BBCOUNT (I) > 0 THEN 
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A VG - 0: STD - 0 

FOR J - 1 TO NCTR: AVOT - AASUM(J, I) : AVOT - AVGT / AACOUNT 

><J, I) 

AVG - AVG + AVGT / 30 : SS - AASUMSQ(J, I) : SS * S3 / AACOUNT 

>(J, I) 

SS - SQR(SS - AVGT * AVGT) / 30 
STD - STD + SS: NEXT J 
AVG - AVG / NCTR: STD - STD / NCTR 
PRINT #filebcl%, AVG; STD; " "; 

END IF 
NEXT I 

PRINT #filebol%, 

FOR I - 1 TO 3: PRINT #filebcl%, USING F4A$; BBCOUNT(I) ; BBSUM(I) 

>; BBSUMSQ(I); : NEXT I 

PRINT #filebol%, 

AG TOTALLY - 0: AGTOTNOTt - 0: AGTOTONfi « 0 

FOR I - 1 TO NCTR 

ATOTALi.fi - 0: ATOTNOTfi - 0: A TO TON & = 0 

FOR J - 1 TO NOBKT 

ATOTALLfi * ATOTALLfi + AAALL (I , J) 

ATOTNOTfi - ATOTNOTfi + AANOTON ( I , J) 

ATOTONfi - A TO TON t + AAON ( I , J) 

NEXT J 

AGTOTALLfi - AGTOTALL.fi + ATOTALLfi 
AGTOTNOTt - AGTOTNOTt + ATOTNOTfi 
AG TO TON t - AG TO TON t + ATOTONfi 
NEXT I 

BTOTALL& - 0: BTOTNOTt ■ 0: BTOTONfi - 0 
FOR J - 1 TO NOBKT 

BTOTALLfi - BTOTALLt + BBALL(J) 

BTOTNOTt - BTOTNOTt + BBNOTON ( J) 

BTOTONfi - BTOTONfi + BBON(J) 

NEXT J 

PRINT #filebcl%, 

PRINT #filebcl%, "A, B Count* «" ; AGTOTALLfi; BTOTALLt, AGTOTNOTt; 

>BTOTNOT6, 

PRINT #filebcl%, AG TO TON fi ; BTOTONfi 
PRINT #filebcl%, 

PRINT #filebal%, "Each pair should ba equal and the 2'nd two shou 

>ld add up to the l'st." 

PRINT #filebcl%, 

PRINT #filebcl%, "Histograms for each run in 1/2 STD intervals."; 
PRINT #filebcl%, "Last entry is check sum." 

Fl$ - ".###" 

F2$ ■ " -3.0 -2.0 -1.0 0.0 1.0 2.0 3.0" 

PRINT #filebcl%, F2$ 

FOR I - 1 TO NCTR 
PROBSUM - 0 
FOR J - 1 TO NOBKT 

PROB - AAALL (I, J) : PROB » PROB / AACOUNT(I, 1) 

PROBSUM •> PROBSUM + PROB 

PRINT #filebcl% , USING Fl$; PROB; 

NEXT J 
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PRINT #filebcl%, PROBSUM 
NEXT I 
PROBSUM - 0 
PRINT #filebcl%, 

PRINT #filebal% , " Cumulative histogram* in 1/2 STD interval*. 
PRINT #filebol%, F2$ 

FOR J - 1 TO NOBKT 

PROB « BBALL(J) : PROB « PROB / BBCOUNT(l) 

PROBSUM - PROBSUM + PROB 

PRINT #filebcl%, USING Fl$; PROB; 

NEXT J 

PRINT #filebcl%, PROBSUM 
PROBSUM - 0 

IF BBCOUNT ( 2 ) <> 0 THEN 
FOR J - 1 TO NOBKT 

PROB - BBNOTON ( J) : PROB - PROB / BBCOUNT (2) 

PROBSUM - PROBSUM + PROB 

PRINT #filebcl%, USING Fl$; PROB; 

NEXT J 

PRINT #filebcl%, PROBSUM 
END IF 
PROBSUM - 0 

IF BBCOUNT (3) <> 0 THEN 
FOR J - 1 TO NOBKT 

PROB - BBON(J) : PROB - PROB / BBCOUNT (3) 

PROBSUM - PROBSUM + PROB 

PRINT #fil«bcl% , USING Fl$; PROB; 

NEXT J 

PRINT #f ilebcl% , PROBSUM 
END IF 
END SUB 


SUB SEARCH 
•«##«#««#«« 

' Purpose \ 

' Parameters \ none 

' Other input data \ 

• Input files \ FILEDUM$ 

'Output files \ 

' Other output data \ 

'Function calls \ LOG$ 

'Subroutine calls \ GETXXA, 

' Comments \ 

I 

SHARED AAAA$ 


SHARED FILEDUM$ , FILEMRG$ , fil*bcl$ 

SHARED FILEDUM%, FILEMRG% , filebcl% 

SHARED XX AS FIXCOMB 
SHARED SINAL!, COSAL' 

I 

SHARED AACOUNT ( ) AS LONG, AASUM ( ) AS LONG, AASUMSQO AS LONG 
SHARED AAALLO AS LONG, AANOTON ( ) AS LONG, AAON () AS LONG 
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SHARED BBCOUNT ( ) AS LONS, BBSUM ( ) AS LONG, BBSUMSQO AS LONG 
SHARED BBALLO AS LONG, BBNOTON ( ) AS LONG, BBON ( ) AS LONG 
SHARED AVO AS SINGLE, STD AS SINGLE 

SHARED NCTR AS INTEGER, NORT AS INTEGER, NOBKT AS INTEGER 


SB$ « '• (SEARCH " 

FRMTAC$ - "### \ \ ###.## ««».«# ### \ \ «#«.«# ###.##" 

FRMTSYMHDR$ » " «##«# ««« #*# ###« 

CLOSE 7 

OPEN FILEDUM$ FOR APPEND AS #7 
IF LOF(7) - 0 THEN 

PRINT LOG$ (SB$ , "DUM FILE CAN NOT BE FOUND " > 

EXIT SUB 

ELSE 

CLOSE 7: OPEN FILEDUM$ FOR INPUT AS *7 
AAAA$ - "SEARCH-START 1" 

NORT - 0 

DO WHILE NOT EOF (7) 

CALL GETXXA (7) 'GET THE RECORD INTO XX 

IF XX. TG TTY PEN - 15 THEN CALL ACCUMULATE ' If Tag 

NORT - NORT + 1 

LOOP 

AVG * AASUM (NCTR, 1) : AVG » AVG / AACOUNT (NCTR, 1) 

AVG - AVG / 30: AVG2 - AVG * AVG 

STD - AASUMSQ (NCTR, 1): STD - STD / AACOUNT (NCTR, 1) 

STD - STD / 900: STD - SQR(STD - AVG2) 

CLOSE 7: OPEN FILEDUM$ FOR INPUT AS #7 
AAAA$ - "SEARCH-START 2” 

NORT1 - 0 

DO WHILE NOT EOF (7) 

CALL GETXXA (7) 'GET THE RECORD INTO XX 

IF XX. TGTTYPEN - 15 THEN CALL HISTOGRAM ' If Tag 

NORT1 « NORT1 + 1 

LOOP 
CLOSE 7 
END IF 


END SUB 


' SEARCH * DUMMY PAGE $ 


?r? ; PAGE ;EXIT; 
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PRINT " This program liata raoorda from oculomatar .DAT fxlaa." 
DO 

PRINT : PRINT 

INPUT "antar fila nama" ; FLE$ 

IF FLE$ - "" THEN END 
T% - 0 

ON ERROR GOTO NOSUCHFILE 
OPEN FLE$ FOR INPUT AS #1 
ON ERROR GOTO 0 
IF T% - 1 THEN GOTO START 
CLOSE 1 

OPEN "R" , #1, FLE$, 10 . mo o *<« nS 

FIELD #1, 2 AS T$, 2 AS A$ , 2 AS B$, 2 AS C$, 2 AS D§ 

LENFLE% - LOF(l) / 10 . . TPMFL E % 

PRINT "Tha numbar of racorda on tha fila i ' 

DO 

PRINT 

INPUT "STARTING RECORD # "; RNI% 

IF RNI% - 0 THEN EXIT DO 
INPUT "LAST RECORD t M } RNMAX% 

IF RNMAX% - 0 THEN EXIT DO 

IF RNHAX% < 0 OR RNMAX% > LENFLE% THEN RNMAX * 

IF RNI% < 0 OR RNI% > RNMAX% THEN RNI% « RNMAX% 

FOR I* - RNI% TO RNMAX% 

PRINT 1 I%! % CVI(T$) , CVI (A$) , CVI (B$) , CVI(C$), CVI (D$) 

NEXT 1% 

LOOP 
CLOSE 1 


LOOP 

NOSUCHFILE : 

PRINT "Couldn't find input fila 
T% “ 1 
RESUME NEXT 


FLE$ 
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PROGRAM FILLMRG 

DEFINT I-N 
DECLARE SUB FIN () 

DECLARE FUNCTION HIT% (VL%, ARRAY % () , N%) 

DECLARE SUB INIT <F$, 0$) 

DECLARE FUNCTION LOG$ (SB$, A$) 

DECLARE SUB PICK {X!, Y! , TOTSYM% , K%, DISTANCE!) 

DECLARE SUB SEARCH () 

DECLARE SUB TARGETSET (FRAMENO% , TOTSYM% , NODICE %) 

DECLARE SUB OETXXA (FILENO%) 

DECLARE SUB PUTXX (FILENO%) 

CONST pi! - 3.14159 

CON8T SF! - .472, XOFF! - -5.04, YOFF! « -.9, cpi! « 204.8, alpha 

>! . -H.5 * pi! / 180, runoff! = -.34 

CONST big! - 3! , little! - 1.2 

CONST tagwdth ■ .5, taght * .5, taglit = little! * SF! + .25, dw 

>« 6 


CONST xlistlm 
TYPE FIXCOMB 

TO TTY PEN AS INTEGER 
TGTTYPEC AS STRING * 
FIXLNGTH AS INTEGER 
PUPDIAM AS INTEGER 
TGTID AS STRING * 3 
DISTANCE AS SINGLE 
FRAMENO AS INTEGER 
TGTX AS SINGLE 
TGTY AS SINGLE 
FIXX AS SINGLE 
FIXY AS SINGLE 
HEADING AS STRING * 3 
COUNTDOWN AS INTEGER 
CONTFIX AS STRING * 1 


4.3, xlistbm = 3, omx * 6.1 


’NON ZERO MEANS HIT 
'TARGET TYPE 


•ID OF CLOSEST TARGET 
BETWEEN CLOSEST TARGET AND FIXATION 
•TIME HISTORY FRAME # 
'TARGET POSITION 


FIXATION POSITION 


•DICE 
•DICE 
' IS THIS 

>A CONTINUATION OF THE PREVIOUS FIXATION 

CROSSCHECK AS STRING * 1 

ZONE AS STRING * 2 'WHAT AREA OF THE TUBE IS THE FIXATION? 
SPEED AS STRING * 1 ' SPLADT S-on, F-off 

1 'A-on, F-off 

8 


AIDON AS STRING 
SPARE AS STRING 
END TYPE 
DIM AAAA$ 

DIM XX AS FIXCOMB 
DIM XXX$ 

NOTG * 60 

DIM ACID(1 TO NOTG) 

DIM ACX (1 TO NOTG) 

DIM ACY (1 TO NOTG) 

DIM AIDON (1 TO NOTG) AS STRING * 1 
DIM COUNTDN ( 1 TO NOTG) AS INTEGER 
DIM HEAD (1 TO NOTG) AS STRING * 3 
DIM ROUTE (1 TO NOTG) AS INTEGER 
DIM SPEEDONU TO NOTG) AS STRING * 1 
DIM TIEPEC (1 TO NOTG) AS STRING * 4 


AS INTEGER 
AS SINGLE 
AS SINGLE 
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DIM TIEPENU TO NOTG) AS INTEGER 
DIM ZONE (1 TO NOTG) AS INTEGER 
DIM diaahaad%(l TO 20) 

DIM diaatima% (1 TO 20) 

DIM IAID AS INTEGER 

DIM FILEACP$, FILEDAT$ , FILEDUMS, FILEIDX$, FILEMRG$ , FILESCN$ 

DIM FILEACP%, F I LED AT % , FILEDUM%, FILEIDX%, FILEMRG% , FILESCN% 

DIM SHARED NUMFIX%, NUMSCAN%, NOSTAT% , NUl*4RG% • *****COI®«ON****** 
DIM SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 
DIM IDX (1 TO 2000) AS LONG 

• ** FILE NUMBERS ** 

• #1 FILE INDEX #2 DAT #3 ACP 

' #4 IDX #5 #6 MRG 

' #7 DUM #8 #9 

I 

DIM PAGES , FONT? 

NOSTAT% - 10 

DIM 8TATXS (NOSTAT%) , STATYS (NOSTAT%) AS SINGLE 
DIM STATID (NOSTAT%) AS STRING * 3 

DATA "DEN" , "IOC" , "OM " , "KEN" , " FLS " , "WIV" , "BYS" , "TRZ" , "DRK" , " JSN" 
FOR I « 1 TO NOSTAT%: READ STATID (I): NEXT I 

DATA 2.38,-19.49,-0.3,19.44,10.92,-10.24, -23.07 ,-8.22,29.42,14.67 
FOR I - 1 TO NOSTAT%: READ STATXS(I) : NEXT I 

DATA -.63,24.92,6.1,28.79,14.1,14.1,-26.08,-11.24,-19.56,-9.23 
FOR I ■ 1 TO NOSTAT% : READ STATYS (I) : NEXT I 
SB$ - "(MAIN " 

DIM SINALI, C08ALI 

SINALt - SIN (alpha!): COSAL1 - COS (alpha!) 

xxx$ - "## \ \ #### #### \ \ ##.## #### ###.## ###.## ###.## ### 

>.## ### #### ! ! \\" 

AAAA$ - " MAIN-START MAIN LOOP" 

INPUT " Entar full f 11a dascrlptor for indax file " , INDEX$ 

OPEN INDEX$ FOR INPUT AS #1 
DO WHILE NOT EOF(l) 

INPUT «1, FILENAMES 
IF FILENAMES » "" THEN EXIT DO 
FILENAMElS - RIGHTS (UCASE$ (FILENAMES) , 8) 

CALL INIT (FILENAMES, FILENAMElS) 

CALL SEARCH 

PRINT LOG$ (SB$ , " FINISHED SEARCH") 

•CALL PRNMRG (5767 , 174) 

CALL FIN 'Cloaa FILES 

LOOP 
CLOSE 1 
PRINT AAAAS 


END 1 MAIN PROGRAM ' DUMMYPAGE$ ?r? ; PAGE ; EXIT; 

SUB FIN 


1 Purpoaa 


\ Cloaa all filaa, scala and output a faw 



' Parameters 

•Other input data 


— > statistics 


\ 

\ SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK , 


>NUMINTRACK , NUMOUTTRACK 

•Input files \ 

•Output files \ 

• Other output data \ 

'Funation calls \ LOG$ 

• Subroutine calls \ 

• Comments \ 

•########## 


SHARED SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK AS LONG 
SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 
SB$ - " (FIN " 

IF NUMINTRACK <> 0 AND NUMOUTTRACK <> 0 THEN 

PRINT LOG$(SB$, "NUMBER OF IN TRACK FIXATIONS* "); NUMINTRAC 

>K; ' totals for . txt file 

PRINT LOG$ ( SB$ , "NUMBER OF OUT TRACK FIXATIONS*"); NUMOUTTRA 

>CK 

PRINT USING "4 ###### OR ####.## SECONDS"; LOG$(SB$, "TOTAL 

>TIME IN TRACK IS "); SUMINTRACK; SUMINTRACK / 30 

PRINT USING "4 ###### OR ####.## SECONDS"; LOG$(SB$, "TOTAL 

>TIME OUT TRACK IS ") ; SUMOUTTRACK; SUMOUTTRACK / 30 

PRINT USING "4 ###### OR ####.## SECONDS"; LOG$(SB$, "TOTAL 

>FIXATION TIME IS ») ; SUMFIXLENGTH; SUMFIXLENGTH / 30 

PRINT USING "4 ###.## OR ## . ## SECONDS"; LOG$ (SB$ , "AVERAGE 

>IH TRACK FIXATION 19 ") ; SUMINTRACK / NUMINTRACK; SUMINTRA 

>CK / NUMINTRACK / 30 

PRINT USING "4 ###.## OR ##.## SECONDS"; LOG$(SB$, "AVERAGE 

>OUT TRACK FIXATION IS ") ; SUMOUTTRACK / NUMOUTTRACK; SUMOUT 

> TRACK / NUMOUTTRACK / 30 

END IF 

CLOSE 2, 3, 4, 6, 7 


END SUB ' FIN 1 DUMMY PAGE $ ?r? ; PAGE ;EXIT; 


FUNCTION HIT% (VL%, ARRAY%(), N%) 

HITL% - 0 
FOR K ■ 1 TO N% 

IF ARRAY% (K) - VL% THEN HITL% = K: EXIT FOR 

NEXT K 

HIT* - HITL* 

END FUNCTION 


SUB INIT (FILENAMES, FILENAME1S) 

•########## 

•Purpose \ Initialize parameters on both circular 

>buffers 

• \ Initialize sums to zero. Let user choose partic- 

> \ ular run for analysis. Determine aid type for 

• \ subsequent branching. Open FILESCN$, FILEDAT$, 
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• \ FILEACP$ and store their lengths. 

• Parameters \ none 

' Other input data \ 

•Input files \ FILESCN$, FILEDAT$, FILEACP$ 

•Output files \ 

'Other output data \ File names fi unit 4's. Initialized vari 

>ables, sums 

. \ and pointers and the branch variable IAID 

'Function calls \ LOG$ 

• Subroutine calls \ none 

•Coranents \ I don't think I'm using this BOP stuff. 


SHARED FILEACP$, FILEDAT$ , FILEDUM$, FILEIDX$, FILEMRG$, FILESCN$ 
SHARED FILEACP% , FILEDAT%, FILEDUM%, FILEIDX%, FILEMRG%, FILESCN% 
SHARED IAID AS INTEGER 

SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 

SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 

SB$ - " (INIT " 

NUMFIX% - 0: NUMSCAN% ■ 0 

3UMFI XLEN GTH ■» 0 : SUMINTRACK “ 0 : SUMOUTTRACK = 0 
NUMINTRACK - 0: NUMOUTTRACK * 0 

t 

SELECT CASE MID$ (FILENAME1$ , 5, 1) 

CASE "M" 

IAID - 1 
CASE "D" 

IAID - 2 
CASE "0" 

IAID ** 3 
CASE "S" 

IAID « 4 
CASE ELSE 

IAID - 9 

END SELECT 

IF IAID - 9 THEN PRINT LOG$(SB$, "CASE FROM FILENAME MUST BE MN,D 

>C,GR or SL") : PRINT : STOP 

IAID1 - VAL(MID$ (FILENAME1$ , 7, 1)) 

IF IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOG$(SB$, "CASE FROM FILE 

>NAME MUST BE 170 OR 210") : PRINT : STOP 

IAID ■ IAID * 10 + IAID1: PRINT IAID 

FILEACP$ - FILENAME$ + " .ACP" : FILEACP% = 3 'append extension 

FILEDUM$ ■ FILENAMES + " . DUM" : FI LEDUM % “ 7, 

FILEIDX$ - FILENAMES + " . IDX" : FILEIDX% - 4 

FILEMRG$ ■ FILENAMES + ".MRG": FILEMRG% = 6 

• COMMENT: FILE NAME .SHOULD LOOK LIKE 

, "C : \FASAFILE\CRONE\CC10SLCE" 

I * 

OPEN FILEACPS FOR INPUT AS #3 

NOBACPfi - LOF(3) 'can the file be found 

IF NOBACPfi - 0 THEN 

PRINT LOG$ (SB$ , FILEACP$) ; "FILE NOT FOUND" ' fix this test 
EXIT SUB 

ELSE : PRINT LOG$(SB$, "NUMBER OF ACP BYTES IS ") ; NOBACPfi 
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END IF 

INPUT #3, FILE HD R$ 

INPUT #3, FILE HD R$ 

PRINT LOG$ (SB$ , FILEHDR$) 


I 

END SUB ' INIT ' DUMMY PAGE $ ?r? ; PAGE ; EXIT; 

SUB PICK (XI, Yl, TOTSYM%, K, DISTMIN!) 

•########## 

'Purpose \ Picks a target, the K'th entry in the a 

>rrays ACX() 

' \ and ACY () to correspond to the look point position 

• \ (X!, Yf). TOTSYM% is the number of targets in the 


\ array. If the subject is looking at both an aircraft 
\ and turn marker or both an aircraft and slot then 
\ the type is changed to 38/"ACTR" or 39/"ACSP" 
\ or 28/"ACSL" 

\ respectively 


'Parameters \ input (X! , Y!, TOTSYM%) , output (K, DIS 

>TANCE ! ) 

'Other input data \ ACX() , ACY(), I AID, TIEPECO, TIEPEN(), 

> ACID ( ) 

' Input files \ none 

'Output files \ none 

'Other output data \ TIEPEC(K), TIEPEN(K) selected target o 

>nly 

' Function aalls \ none 

' Subroutine calls \ none 

'Comments \ Formerly stopped search when distance < 

>= uttle! 


■ \ Now search continues for minimum over all targets. 

•»«#««#«### 

SHARED ACID ( ) AS INTEGER 
SHARED ACX () AS SINGLE 
SHARED ACY ( ) AS SINGLE 
SHARED AIDON ( ) AS STRING * 1 
SHARED COUNTDN ( ) AS INTEGER 
SHARED HEAD() AS STRING * 3 
SHARED ROUTE () AS INTEGER 
SHARED SPEEDONO AS STRING * 1 
SHARED TIEPECO AS STRING * 4 
SHARED TIEPENO AS INTEGER 
SHARED ZONE() AS INTEGER 
SHARED IAID AS INTEGER 
DIM IDX ( 1 TO 20), IDXL AS INTEGER 

DISTANCE! - big!: DISTMIN! - 100: K * 0: IDXL * 0 
FOR I « 1 TO TOTSYM* 

Dl! - ABS (X! - ACX(I)) 

IF Dl! <« DISTANCE! THEN 

D2! - ABS (Y ! - ACY (I)) 
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'HIT ON BIG 


IF D2 ! O DISTANCE! THEN 

D3! - SQR(D1 ! * D1 ! + D2 ! * D2 ! ) 

IF D3! <■ little! THEN 

DISTANCE! - little! 

ID XL - ID XL + 1 
IDX(IDXL) - I 
END IF 

IF D3! < DISTMIN ! THEN K = I: DISTMIN! = D3! 


END IF 
END IF 
NEXT I 


CHANGE TYPE ??? a 


IF IDXL > 1 AND (IAID - 31 OR IAID « 41 OR IAID * 32 OR IAID - 42 

>) THEN 'TURN, SLOT ONLY 

FOR I - 1 TO IDXL 
J - IDX(I) 

IF J <> K AND ACID (J) - ACID (K) THEN 'DIF TARGET SAME ID 
SELECT CASE TIEPEN(K) 

CASE 10 

SELECT CASE TIEPEN(J) 

CASE 32, 33, 34, 35 

TIEPEN(K) = 38: TIEPEC(K) = "ACTR" 
EXIT FOR 
CASE 36 

TIEPEN(K) * 39: TIEPEC(K) = "ACSP" 
EXIT FOR 
CASE 20 

TIEPEN(K) = 28: TIEPEC(K) = "ACSL" 
EXIT FOR 
END SELECT 
CASE 32, 33, 34, 35 

IF TIEPEN(J) « 10 THEN 

TIEPEN(K) = 38: TIEPEC(K) = "ACTR" 
EXIT FOR 
END IF 
CASE 36 

IF TIEPEN(J) - 10 THEN 

TIEPEN(K) = 39: TIEPEC(K) = "ACSP" 
EXIT FOR 
END IF 
CASE 20 

IF TIEPEN(J) = 10 THEN 

TIEPEN(K) = 28: TIEPEC(K) * "ACSL" 
EXIT FOR 
END IF 

END SELECT 
END IF 
NEXT I 
END IF 


» 
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END SUB 


' PICK 


' DUMMY PAGE $ ?r?; PAGE; EXIT; 


SUB PUTXX (FILENO%) 


' Purpose 

' ParaiMtara 

' Othar input data. 

'Input files 

'Output filas 

'Othar output data 
'Funation calls... 

' Subroutina aalls . 

' Comments 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


Writas a racord from XX to tha appropri 

>ata fila. 

riLENO% 

XX 

nona 

FILEMRG$ 

nona 

nona 

nona 

This ma kas it aasiar to modify record f 

>orm. 


'Write tha array XX to a racord on tha FILEMRG$ file. 

SHARED XX AS FIXCOMB 

WRITE #FILENO%, XX . TGTTYPEN , XX . TGTTYPEC , XX.FIXIHGTH, XX.PUPDIAM 

>, XX.TGTID, XX. DISTANCE, XX . FRAMENO , XX.TGTX, XX.TGTY, XX. FI 

>XX, XX.FIXY, XX. HEADING, XX . COUNTDOWN , XX.CONTFIX, XX. C 

>ROSSCHECK, XX. ZONE, XX. SPEED, XX.AIDON, XX. SPARE 


END SUB ' PUTXX ' DUMMY PAGE $ ?r? ; PAGE; EXIT; 


SUB SEARCH 

'########## 

' Purpose \ 

' Parameters \ nona 

'Other input data \ 

'Input filas \ FILEIDX$, FILEACP$, FILEMRG$ 

'Output filas \ FILEDUM$ becomes FILEMRG$ 

'Other output data \ 

'Function calls \ LOG$ 

'Subroutine calls \ GETXXA, PICK, PUTXX, TARGETSET 

' Comments \ 

* 

SHARED AAAA$ 


SHARED FILEACP$, FILEDAT$ , FILEDUM$ , FILEIDX$, FILEMRG$, FILESCN$ 
SHARED FILEACP%, FILEDAT%, FILEDUM% , FILEIDX%, FILEMRG% , FILESCN% 
SHARED XX AS FIXCOMB 
SHARED SINAL! , COSAL! 

SHARED ACID ( ) AS INTEGER 
SHARED ACX ( ) AS SINGLE 
SHARED ACY () AS SINGLE 
SHARED AIDON ( ) AS STRING * 1 
SHARED COUNTDN ( ) AS INTEGER 
SHARED HEAD() AS STRING * 3 
SHARED ROUTE () AS INTEGER 
SHARED SPEEDONO AS STRING * 1 
SHARED TIEPECO AS STRING * 4 
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SHARED TIEPEN() AS INTEGER 
SHARED ZONE() AS INTEGER 
SHARED dioehead%() 

SHARED dlo«tim*% () 

SHARED STATIDO AS STRING * 3 
SB$ - " (SEARCH " 

FRMTAC$ - "### \ \ ##«.«# ###.## «## \ \ «««.«« «##.##•• 

FRMTSYMHDR$ - « ###«# #*« ### ###•• 

CLOSE 3, 4, 6, 7 
OPEN FILEIDX$ FOR INPUT AS #4 
OPEN FILEACP$ FOR INPUT AS #3 
OPEN FILEMRG$ FOR INPUT AS #6 
OPEN FILEDUM$ FOR OUTPUT AS #7 

IF LOF(3) - 0 OR LOF (4) - 0 OR LOF (6) - 0 OR LOF(7) <> 0 THEN 

PRINT LOG$(SB$, "LENGTHS OF ACP, IDX, MRG, DUMMY = "); LOF (3 

>) ; LOF ( 4 ) ; LOF(6) ; LOF<7) 

PRINT LOG$ (SB$ , "AT LEAST ONE FILE CAN NOT BE FOUND OR DUMMY 

> FILE EXISTS") 

EXIT SUB 


ELSE 

AAAA$ - "SEARCH-START" 

FRMNOMl% « 0 
DO WHILE NOT EOF (6) 

CALL GETXXA ( 6) 'GET THE RECORD INTO XX 

IF XX . TGTTYPEC - "UNK » THEN 

IF FRMNOMl% <> XX. FRAMENO THEN 

AAAA$ - "SEARCH-CALL TO TARGETSET" 

CALL TARGETSET (XX. FRAMENO, TOTSYM% , NODICE%) 

> ' POSSIBLE TARGETS 

AAAA$ * "SEARCH-RETURN FROM TARGETSET" 

FRMNOMl% = XX. FRAMENO 
END IF 

XOCS1! ■ (XX.FIXX - XOFF! ) / SF! 

YOCS1 * - (XX.FIXY - YOFF! ) / SF! 'TRANSFORM FIX 

>ATION 

XOCSf - SINAL! * XOCS1! + COSAL! * YOCS1 ! 

> 'TO SYSTEM COORDTS 

YOCS! » COSAL! * XOCS1! - SINAL! * YOCS1 ! 

CALL PICK (XOCS ! , YOCS!, TOTSYM% , IDXTARG, DISTANCE 

>!) 'PICK FROM POSBLES 

AAAA$ « "SEARCH-RETURN FROM PICK" 

IF IDXTARG <> 0 THEN 

XSOC1! » ACX( IDXTARG) * SF! 

YSOC1 ! * ACY (IDXTARG) * SF! 

> 'TRANSFORM TGT POSITION 

XSOC! » SINAL! * XSOC1! + COSAL! * YSOC1! + X 

>OFF ’TO SCREEN COORDTS 

YSOC! * COSAL! * XSOC1! - SINAL! * YSOC1 ! + Y 

>OFF 

IF DISTANCE! > little THEN 

IF TIEPEN (IDXTARG) <> 15 THEN 
IDXTARG a 0: DISTANCE! = 


ELSE 


100 



DX - XX.FIXX - XSOC ! : DY - XX.FIXY 

>- YSOC! 

IF DX < -taglit OR DX > taglit OR D 

>Y < -taglit OR DY > taglit THEN 

IDXTARG * 0: DISTANCE ! * 100 
END IF 
END IF 
END IF 
END IF 

IF IDXTARG - 0 THEN 

XX. SPEED - "0": XX . A I DON ■ "0" 

XX . HEADING m " " : XX . COUNTDOWN * 0 

IF XX.FIXX >- xliatlm AND XX.FIXY >“ xlistbm THEN 
XX. DISTANCE - SF! * littla 
XX . TGTTYPEC - "LIST": XX. TG TTY PEN = 56 
XX. ZONE ■ "4": XX.TGTID * "LST" 

XX.TGTX “ xlistlm 'TO SCREEN COORDTS 

XX.TGTY “ xlietbm 

ELSE 

DISFRMFIN = XOCS! - runoff! 

SELECT CASE DISFRMFIN 

CASE (-dw - littla) TO (-dw + little) 'SOU 

>TH DOWNWIND 

XX. DISTANCE = SF! * ABS (DISFRMFIN + dw) 
XX. TGTTYPEC = "LINE": XX.TGTTYPEN = 53 
XX. ZONE = "3": XX.TGTID = "SDW" 

XSOC1 ! « (-dw + runoff) * SF! 

YSOC1! - YOCS! * SF! 

> 'TRANSFORM TGT POSITION 

XX.TGTX « SINAL! * XSOC1 ! + COSAL! * YSO 

X31 1 + XOFF 'TO SCREEN COORDTS 

XX.TGTY = COSAL! * XSOCl ! - SINAL! * YSO 

>C1 ! + YOFF 

CASE -little TO little 'FINAL 

IF YOCS! >- ORix - little AND YOCS! <= omx + 1 

>ittle THEN 

XX. DISTANCE = SF! * ABS (DISFRMFIN + dw) 

> 'OUTER MARKER 

XX. TGTTYPEC = "OMRK" : XX.TGTTYPEN = 50 
XX. ZONE = "1": XX.TGTID = "OMK" 

XSOCl! * runoff! * SF! 

YSOC1 ! = omx * SF! 

> 'TRANSFORM TGT POSITION 

XX.TGTX * SINAL! * XSOCl! + COSAL! * YSO 

Xn ! + XOFF 'TO SCREEN COORDTS 

XX.TGTY * COSAL! * XSOCl! - SINAL! * YSO 

>C1 ! + YOFF 

TMP1 * (XX.FIXX - XX.TGTX) A 2: TMP2 * ( 
>XX. FIXY - XX.TGTY) A 2 


XX. DISTANCE 

ELSE 

XX. DISTANCE 
XX. TGTTYPEC 


SQR(TMP1 + TMP2) 

' final 

SF! * ABS (DISFRMFIN) 
"LINE": XX.TGTTYPEN = 51 
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" FNL" 


XX. ZONE = 
XSOCl! = 
YSOC1! * 

> 

XX.TOTX » 

>C1 ! + XOFF 

XX.TGTY i 


: » l » : XX . TGTID * 
runoff * SF! 

YOCS! * SF! 

'TRANSFORM TGT POSITION 
• SINAL! * XSOC1 ! + COSAL! * YSO 
' TO SCREEN COORDTS 
: COSAL! * XSOC1! - SINAL! * YSO 

>C1 ! + YOFF 


END IF 

CASE (dw - little) TO (dw + little) 'NOR 

>TH DOWN WIND 


XX. DISTANCE * SF! * ABS (DISFRMFIN - dw) 
XX.TGTTYPEC * "LINE": XX . TG TTY PEN * 52 
XX. ZONE - "3": XX. TGTID * "NDW" 

XSOCl! * (dw + runoff) * SF! 

YSOC1 ! * YOCS! * SF! 

> 'TRANSFORM TGT POSITION 

XX.TGTX - SINAL! * XSOCl! + COSAL! * YSO 
->C1! + XOFF 'TO SCREEN COORDTS 

XX.TGTY * COSAL! * XSOCl! - SINAL! * YSO 


v I 




CASE ELSE 
END SELECT 
END IF 
END IF 

IF IDXTARG <> 0 THEN 

XX. DISTANCE* SF! * DISTANCE! : XX.TGTX = XSOC! 
XX.TGTY * YSOC ! 

IF TIEPEN (IDXTARG) <> 55 THEN 

XX. TGTID* RIGHT$ (STR$ (ACID (IDXTARG) ) , 3) 

ELSE 

XX . TGTID * STATID (ACID (IDXTARG) ) 

END IF 

XX.TGTTYPEC = TIEPEC (IDXTARG) : XX . TGTTYPEN = 

>TIEPEN ( IDXTARG) 

XX. ZONE = RIGHT$ (STR$ (ZONE (IDXTARG) ) , 1) + RI 

>GHT$ (STR$ (ROUTE (IDXTARG) ) , 1 ) ' SET ZONE etc. here 

XX.AIDON = AIDON ( IDXTARG) : XX. SPEED * SPEEDON 

> (IDXTARG) 

XX. HEADING = HEAD ( IDXTARG) : XX. COUNTDOWN * CO 

>UNTDN ( IDXTARG) 

END IF 

ELSE 

XX. SPEED = "0": XX.AIDON * "0" 

XX . HEADING * " " : ibc . COUNTDOWN = 0 

END IF 

CALL PUTXX (7) 

LOOP 

IDUM * 0: IF LOF(7) >* LOF(6) THEN IDUM — 1 
CLOSE 3 , 4 , 6 , 7 

' IF IDUM * 1 THEN KILL FILEMRG$ : NAME FILEDUM$ AS FILEMRG$ 
END IF 



END SUB 


•SEARCH 1 DUMMY PAGE $ ?r? ; PAGE; EXIT; 


SUB TARGETSET (FRAMENO%, TOTSYM%, NODICE%) 

•########## 

•Purpose \ Sets up an array of targets (actually s 

>everal 

' \ arrays ara used) which will ba compared to the 

• \ lookpoint to determine what the subject is looking 

• \ at. This includes: aircraft, tags, aids, static 

• \ targets and lines. Aids and tags are assigned 

' \ to the same zone as their corresponding aircraft. 

' \ For each aid turned on, the "aidon" flag is set 

1 \ for the corresponding airaraft and tag. If a 

1 \ speed advisory is encountered, then the "speed” 

• \ flag is set for the corresponding aircraft and tag. 


Parameters \ input- (FRAMENO*) , output- (TOTSYM% , NODI 

>CE%) 

Other input data \ IAID 

Input files \ . IDX AS #4, .ACP AS #3 

Output files \ 

Other output data \ ACID () ,ACX() , ACT (), ROUTE (), ZONE () ,TIEP 

>EC ( ) , TIEPEN ( ) 

\ dicehead% ( ) , dicetime% ( ) 

Function calls \ 

Subroutine aalls \ 

Comments \ Assumes . IDX has been opened as #4 and 

> . ACP has been 


\ opened as #3. 


SHARED ACID ( ) AS INTEGER 
SHARED ACX ( ) AS SINGLE 
SHARED ACY() AS SINGLE 
SHARED AIDON () AS STRING * 1 
SHARED COUNTON ( ) AS INTEGER 
SHARED HEAD() AS STRING * 3 
SHARED ROUTE () AS INTEGER 
SHARED SPEEDON ( ) AS STRING * 1 
SHARED TIEPECO AS STRING * 4 
SHARED TIEPEN () AS INTEGER 
SHARED ZONE() AS INTEGER 
SHARED dicehead% ( ) 

SHARED dicetime% () 

SHARED IAID AS INTEGER 


SHARED STATXS ( ) , STATYS ( ) AS SINGLE 

SHARED STATIDO AS STRING * 3 

DIM GRX ( 1 TO 4), GRY (1 TO 4) AS SINGLE 

JJ - (FRAMENO% - 1) *10+1 

IF JJ > LOF (4) - 9 THEN JJ - LOF(4) - 9 

SEEK #4, JJ 'BYTE OFFSET FOR INDEX FILE 

INPUT #4, NBYTE4 

SEEK #3, NBYTEt 'BYTE OFFSET FOR TIME HISTORY 
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INPUT #3, NOAC%, T% 

TOR J XNTOI #3. «ID ( < J^MNE , 

ss&r “"c- <y + z ^cV- N “«- i'.^rLx^ 

TIEPEN <J> - 10: TIEPEN ( J + HOAC%) -18 
AIDON(J) ■ "0": AIDON ( J + NOAC%) * 0 

SPEEDON (J) - "0": SPEEDON (J + NOAC%) “ " 

HEAD ( J) m " " : HEAD(J + NOAC%) = 

COUNTDN ( J) “ 0: COUNTDN(J + NOAC%) - 0 

NEXT J 

K ■ 2 * NOAC% 

INPOT #3, HOTURN3*. NOSL °”'’ N ^j“ % 

NOSTM» - NOTOBNSE + HOSM,T =* * "° E% • T% ■ FRAMENOl ; J; 

■ print noac%; notubn3% ; nosiots%; NOD ice ». t», 

IF NOSYM% <> o THEN 

SELECT CASE IAID 'GRAPHIC TURN MARKER 

CASE 31, 32 

FOR JJ - 1 TO NOTURNS % 

INPUT #s! ACID (K) , ACX(K) L^l** gry^3 ) ^ INPUT 
>Y(1) 6RX (2) , GRY(2), GRX(3) , GRY ( J) 

^WciD,*,. -°<> : --US A/C 

IF LLL <> 0 THEN 

MWW ‘ " 1 "= AIDON(^ ^ ^ 

ZONE (K) = ZONE ( LLL) : ROUTE : ^ 

SPEEDON(K) - "0" qpLAT 

TF GRX(l) = 99.99 THEN ’SPLAT 

TIEPEC(K) = "SPLT" : TIEPEN (K) - 36 

SPEEDON(K) * "1" VT 

SPEEDON (LLL) - = -1- 

TIEPEC(K) * "TBN1": TIEPEC(K + D _”_"™ 
TIEPEC (K ♦ 2) - "TPN3": TIEPEC (K jP.3)^ 

- «“<■■> ■ isj 

ACY (L + K) - GRY(L): AIDON(L +^K)j 

ZONE ( L + K) = ZONE (LLL) : ROUTE (L + 

ZONE (L + >R) . ROUTE (LLL) 

SPEEDON (L + K) = "0" 
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K - 

END 

IF 


K + 
IF 


CASE 


END 
NEXT JJ 
41, 42 

FOR JJ ■ 1 TO NOSLOTS% 
K - K + 1 
TIEPEC(K) * "SLOT" 
TIEPEN(K) * 20 
ACX(K) ■ runoff! 
INPUT #3, ACID(K), 
LLL ■ HIT%(ACID(K) 

IF LLL <> 0 THEN 
AIDON(LLL) « "1" 


’SLOT MARKER-BUBBLE 


' - . 34 See page 1 
ACY (K) ' INPUT SYMBOLS 

ACID() i NOAC%) 'Find cor 
>reaponding A/C 


ZONE (K) 


END 


END 

IF 


AIDON (LLL + NOAC % ) « "l" ig 

>*t A/C & Tag AIDON 

ZONE (LLL) : ROUTE (K) - ROUTE (LLL) : A 

>IDON(K) * "1" 

SPEEDON (K) ■ "0" 

END IF 
NEXT JJ 

CASE 21, 22 'DICE 

FOR JJ * 1 TO NODICE% 

LINE INPUT #3, DICELINE$ 'INPUT SYMBOLS 

ACID (K) " VAL (LEFT$ (DICELINE$ , 5)) 

LLL - HIT% (ACID (K) , ACID(), NOAC%) 'Find cor 

^responding A/C 

IF LLL <> 0 THEN 

COUNTDN (LLL) “ VAL (MID$ (DICELINE$ , 12, 5)) 

> ' COUNTDOWN 

COUNTDN (LLL + NOAC%) = COUNTDN (LLL) 

HEAD (LLL) « MID$ (DICELINE$ , 8, 3) 'HEADING 
HEAD (LLL + NOAC%) - HEAD (LLL) 

AIDON (LLL) = "1": AIDON (LLL + NOAC%) ss "i« 

IF UCASE$ (MID$ (DICELINE$ , 7, 1)) = "S" THEN 
PRINT FRAMENO%; DICELINE$ ; HEAD (LLL) 
SPEEDON (LLL) = "1": SPEEDON (LLL + NOAC%) 

> = ii in 

END IF 
END IF 
NEXT JJ 
SELECT 


IF NOSTAT% <> 0 THEN 

FOR JJ ■ 1 TO NOSTAT% 

K - K + 1 
TIEPEC(K) ■ "STAT" 

TIEPEN(K) - 55 
ACID (K) - JJ 

ACX(K) = STATXS ( JJ) : ACY (K) 
ZONE (K) » 4: ROUTE (K) « 0: 
SPEEDON (K) “ "0" 

HEAD (K) ■ " »: COUNTDN (K) 


•INPUT SYMBOLS 
= STATYS ( JJ) 

AIDON (K) = "0" 

= 0 
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NEXT JJ 
END IF 

TOTSYM% « K: 'PRINT K 


END SUB 


' TARGETSET 


' DUMMY PAGE $ 


?r?; PAGE; EXIT 



PROGRAM FILTER! 

' DEFINT I-N 


START: 

TYPE DDAT 

TT AS INTEGER 
XX AS INTEGER 
YY AS INTEGER 
PD AS INTEGER 
FT AS INTEGER 


END TYPE 
DIM XI AS DDAT 
DIM X2 AS DDAT 
DIM X3 AS DDAT 

DIST - 102.4: DIST2 - DIST * DIST 
AA$ - »*****o******************** 
AB$ - ” FILTER1 • BAS " + DATE$ + 
XC$ - " -DTI IS A COMBINATION OF 


'CPI*204 . 8 

******************************* 
'' " + TIME$ 

. SCN AND .DAT. This program us 
>«s 4 filters" 


AD$ 


proposed by Randy Harris in Oct, 91 to reduce the number 
r r rAcords” 


on the file. Input-. DTI, Output-. DT3" 

Inter full file descriptor for index file " , INDEX$ 

'List of files for one subject 

- 8) + "LOG. TOT" 


t fVivAnnrh 


'Concatenated log file 




U ^ « ^.4- I 




AE$ - 
INPOT 

OPEN INDEX$ FOR INPUT AS #3 
LGTOT$ - LEFT$ (INDEX$, LEN ( INDEX$ ) 
OPEN LGTOT$ FOR OUTPUT AS #4 
DO WHILE NOT EOF (3) ' 

PRINT : PRINT 
INPUT #3, FLE$ 

IF FLE$ » "" THEN END 
NN$ - FLE$ + " • DT2 " 

Nl$ - FLE$ + ".DTI" 

LG$ » FLE$ + ".LOG" 

OPEN LG$ FOR APPEND AS #5 
PRINT NN$ 

T% - 0 

ON ERROR GOTO NOSUCHFILE 
OPEN Nl$ FOR INPUT AS #1 
ON ERROR GOTO 0 
IF T% ■ 1 THEN GOTO START 
CLOSE 1 

OPEN "R", #1/ Nl$, 10 
LENFLE% “ IOF(l) / 10 
DN1 - LENFLE% 

OPEN NN$ FOR RANDOM AS #8 LEN 
IF LOF (8) <> 0 THEN STOP ' 
PRINT #4, AA$ : PRINT #4, AB$ , 
PRINT #4, AC$ : PRINT #4, AD$ : 
PRINT #5, AA$ : PRINT #5, AB$ , 
PRINT# 5 , AC$ : PRINT #5, AD$ : 
FIL1 ■ 0 : FIL2 * 0 : FIL3 • 0 : 
T1 - 0: T2 - 0: T3 - 0: T4 « 


'Can find .DTI file?? #1 


' Open .DTI in random mode 
' Floating point 

* 10 

Open DT2 in random mode #8 
FLE$ : PRINT #4 , 

PRINT #4, AE$ ' Preamble #4 

FLE$ : PRINT #5, 

PRINT #5, AE$ ' Preamble #5 
FIL4 = 0 

0: T5 » 0: T6 « 0 1 Initiali 

>ze accumulators 


GET #1, , XI 


'#1 & #8 OPEN, FILTER #1 TO #8 
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DTI TO DT2 


i 


GET #1, , X2 
GET #1, , X3 
T1 - Tl + XI. FT + X2.FT + X3 . FT 

RECRED% - 3 ' NOR raad from * DT1 


» FILTER #1 INTO #8 

1 Remaining records 
0 OR XI. PD > 10 

0 OR X2.PD > 10 

0 OR X3.PD > 10 

1 AND X2IT% AND (NOT X3IT%> AND X1IT% THEN 'REMOV 

>E RECORD 


DO WHILE RECRED% <■ 30000 
RECLFT%- LENFLE% - RECRED% 

X1IT% - XI. XX <> 0 OR XI. YY <> 

X2IT% - X2.XX <> 0 OR X2.YY <> 

X3IT% * X3.XX <> 0 OR X3.YY <> 

IF X2.FT 


XI. FT » XI. FT + 1 
PUT #8, , XI 

XI - X3 , 

FIL1 - FIL1 + 1 ' Increment NOR accumulator 

IF RECLFT% > 1 THEN ' 2 or more .DTI records left 

GET #1, , X2 

GET #1, , X3 , 

Tl- T1 + X2.FT + X3.FT ' Increment time, fxlter l 

RECRED% * RECRED% + 2 


ELSE 

PUT #8, , XI 

IF RECLFT ■ 1 THEN 
GET #1, , XI: PUT #8, 

Tl « Tl + XI. FT 
RECRED% ■ RECRED% + 1 
END IF 
EXIT DO 
END IF 

ELSE 

PUT #8, , XI 

XI « X2: X2 * X3 
IF RECLFT % > 0 THEN 
GET #1, , X3 
Tl * Tl + X3.FT 
RECRED% * RECRED% + 1 

ELSE 

PUT #8, , XI: PUT #8, 

EXIT DO 
END IF 
END IF 
LOOP 
CLOSE 1 


t i or 0 .DTI records left 
, XI 

' No filter 1 
• Not EOF .DTI 

' EOF .DTI 

, X2 


NN3$ - FLE$ + " . DT3" 

OPEN NN3$ FOR RANDOM AS #9 LEN *= 10 


LOF9 « LOF(9) : LOF8 ■ LOF(8) / 

IF LOF9 <> 0 THEN STOP 

SEEK #8 , 1 

GET #8, , XI 

GET #8, , X2 


10 


#8 AND #9 OPEN, FIL 

>TER #8 INTO #9 

DT2 TO DT3 


i i 


XI 

X2 
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GET #8, , X3 
RECRED% - 3 
DO 

RECLFT% - LOF8 - RECREDt 

X2IT% - X2.XX <> 0 OR X2.YY <> 0 OR X2.PD > 10 

IF (X2.FT > 12) OR (X2IT% AND X2.FT > 3) THEN GOTO FILTER4 

>' B too long 

X1IT% - XI. XX <> 0 OR XI. YY <> 0 OR XI. PD > 10 
X3IT% « X3.XX <> 0 OR X3.YY <> 0 OR X3.PD > 10 
IF NOT X1IT% OR NOT X3IT% THEN GOTO FILTER4 ' A or C no 

>t in track 

D13% - ((XI. XX - X3.XX) A 2 + (XI. YY - X3.YY) A 2) O DIST2 
IF NOT D13« THEN GOTO FILTER4 • A to C distance too graat 
XXI - XI. XX: YY1 - XI. YY: XX3 « X3.XX: PD1 - XI. PD’ 3 INTO 1 
YY3 - X3.YY: FT1 - XI. FT: FT3 - X3.FT: PD3 - X3.PD 

XI. XX - ((XXI * FT1) + (XX3 * FT3) ) / (FT1 + FT3) 

XI. YY - ( (YY1 * FT1) + (YY3 * FT3) ) / (FT1 + FT3) 

XI. PD - ( (PD1 * FT1) + (PD3 * FT3) ) / (FT1 + FT3) 

XI. FT - XI. FT + X3.FT 
IF X2.FT < 4 THEN 

XI. FT - XI. FT + X2.FT 

ELSE 

IF NOT X2IT% THEN T5 « T5 + X2.FT 
END IF 

IF X2IT% THEN 
FIL2 - FIL2 + 1 
ELSE 

FIL3 - FIL3 + 1 
END IF 

IF RECLFT% > 1 THEN 

GET #8, , X2: GET *8, , X3 

RECRED% » RECRED% + 2 

ELSE ’ END OF FILE 

IF XI. FT > 3 THEN ' Filter4 A?? 

PUT #9, , XI: T2 - T2 + XI . FT 

ELSE 

FIL4 ■ FIL4 + 1: 

T6 - T6 + XI. FT 
END IF 

IF RECLFT - 1 THEN 

GET #8 , , XI: RECRED% « RECRED« + 1 

IF XI. FT > 3 THEN ' Filtar4 A?? 

PUT #9, , XI: T2 - T2 + XI. FT 

ELSE 

T6 - T6 + XI. FT: FIL4 * FIL4 + 1 
END IF 
END IF 
EXIT DO 
END IF 
GOTO BOTTOM 
FILTER4 : 

IF XI. FT > 3 THEN ' Filter4 A?? 

PUT #9, , XI: T2 - T2 + XI. FT 
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ELSE 


FIL4 - FIL4 + 1: 

T6 - T6 + XI. FT 
END IF 

XI - X2: X2 « X3 

IF RECLFT% > 0 THEN ' Not EOF . DT2 

GET #8, , X3 
RECRED% a RECRED% + 1 

ELSE 'END OF FILE . DT2 

IF XI. FT > 3 THEN ' Filter4 A?? 

PUT #9, , XI: T2 - T2 + XI . FT 

ELSE 

T6 - T6 + XI. FT: FIL4 - FIL4 + 1 
END IF 

IFX2.FT > 3 THEN ' Filter4 B?? 

PUT #9, , X2: T2 « T2 + X2.FT 

ELSE 

T6 = T6 + X2.FT: FIL4 * FIL4 + 1 
END IF 
EXIT DO 
END IF 
BOTTOM: 

LOOP 


N2 - LOF(9) / 10 
CLOSE 8 , 9 

N3 - FIL1: PN3 - 100 * N3 / DN1 : N4 = FIL2 * 2: PN4 = 100 * 

>N4 / DN1 

N5 = FIL3 * 2: PN5 « 100 * N5 / DN1: N6 = FIL4 : PN6 = 100 * 

>N6 / DN1 


PRINT : PRINT FIL1 , FIL2 , FIL3, FIL4 
PRINT *4, 

PRINT #4, USING " Number of records .DTI #####, . DT3 ##### 

> Percent Excised ###.#%"; DN1 ; N2; 100 * (DN1 - 

>N2) / DN1 

PRINT #4, " Number of records excised for each of 4 filters 

> as % of .DTI records " 


PRINT #4, SPACE$ (11) ; 

PRINT #4, USING " ##### ###.#% N3; PN3 ; N4 ; PN4 ; N5; PN5 ; 

> N6 ; PN6 


T3 - 0: PT3 - 100 * T3 / T1 : PT4 = 100 * T4 / T1 

PT5 « 100 * T5 / Tl: PT6 = 100 * T6 / T1 

PRINT #4, 

PRINT #4, USING " TOTAL TIME .DTI ######, . DT3 ######"; Tl 

>; T2 

PRINT #4, " Time excised for each of 4 filters as % of .DTI 

> total time " 


PRINT # 4 , SPACE$(11); 

PRINT # 4 , USING " ##### ###.#% " ; T3; PT3; T4 ; PT4 ; T5; PT5 ; 

> T6; PT6 

PRINT #4, 

PRINT #4, USING " TOTAL TIME in seconds .DTI ####, .DT3 ## 
>## Percent Excised ###.#%"; Tl / 30; T2 / 30; 100 
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>* (T1 - T2) / T1 

PRINT #4, " Tim* excised in seconds for each of 4 filters a 

>s % of .DTI total time " 

PRINT #4 , 8PACE$ (11) ; 

PRINT #4, USING « #### ###.#% T3 / 30; PT3; T4 / 30; PT4 ; 

> T5 / 30; PT5 ; T6 / 30; PT6 

PRINT #5, 

PRINT #5, USING " Number of records .DTI #####, . DT3 ##### 

> Percent Excised ###.#%"; DN1 ; N2; 100 * (DN1 - 

>N2) / DN1 

PRINT #5, " Number of records excised for each of 4 filters 

> as % of .DTI records " 

PRINT #5, SPACE$(11); 

PRINT #5, USING » ##### ###.#% " ; N3; PN3; N4 ; PN4 ; N5; PN5; 

> N6; PN6 

PRINT #5, 

PRINT #5, USING " TOTAL TIME .DTI ######, .DT3 ######"; T1 

>; T2 

PRINT #5, " Time excised for each of 4 filters as % of .DTI 

> total time " 

PRINT #5, SPACE$(11); 

PRINT #5, USING '* ##### ###.#% "; T3; PT3; T4 ; PT4 ; T5; PT5; 

> T6; PT6 

PRINT *5, 

PRINT #5, USING " TOTAL TIME in seconds .DTI ####, . DT3 ## 

>## Percent Excised ###.#%"; T1 / 30; T2 / 30; 100 

>* (T1 - T2) / T1 

PRINT #5, " Time excised in seconds for each of 4 filters a 

>s % of .DTI total time " 

PRINT *5, SPACE$(11); 

PRINT #5, USING " #### ###.#% "; T3 / 30; PT3; T4 / 30; PT4 ; 

> T5 / 30; PT5; T6 / 30; PT6 

CLOSE 5 

LOOP 

CLOSE 3, 4 
END 

NOSUCHFILE : 

PRINT "Couldn't find input file "; FLE$ 

T* - 1 

RESUME NEXT 
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PROGRAM FIXPQ1MI 

DEFXNT I-N 

DECLARE SUB CRE8DT1 () 

DECLARE SUB BX2 (BXP%0) 

DECLARE SUB BX1 (BIP%0) 

DECLARE SUB FIN 0 
DECLARE SUB FIXPOINTER () 

DECLARE SUB INIT (F$, 0$) 

DECLARE FUNCTION LOO$ (SB$, A$) 

DECLARE SUB YESORNO (A$, B$) 

CONST naoanbuf » 400, nfixbuf * 5000 
TYPE DTI 

TIME AS INTEGER 
XL AS INTEGER 
YL AS INTEGER 
PUP AS INTEGER 
LENGTH AS INTEGER 
END TYPE 
DIM XDT1 AS DTI 

DIM BI1P (1 TO 7) AS INTEGER ' Buf farad Input 1 
DIM BI2P (1 TO 7) AS INTEGER ' Buf farad Input 2 
DIM FILEACP$, FILEDAT*. FILEDUM$ , FILEIDX*. 

DIM FILEACP% , FILEDAT%, FILEDUM% , FILEIDX%, FILEDT1%, FILESCN% 

DIM FIXPNTER(26000) AS INTEGER 

DIM FIXLENGTH ( 1 TO nfixbuf) AS INTEGER 

DIM INTRACK (1 TO nfixbuf) AS INTEGER 

DIM NUMINTRACK, NUMOUTTRACK AS INTEGER 

DIM OCSCAN (1 TO naoanbuf, 1 TO 4) AS INTEGER 

DIM PUPDIAM ( 1 TO nfixbuf) AS INTEGER , *****comMON****** 

DIM SHARED NUMFIX%, NUMSCAN%, NOSTAT% , NUMMRG% ** COMMON 

DIM SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 

DIM XLOOK(l TO nfixbuf) AS INTEGER 

DIM YLOOK (1 TO nfixbuf) AS INTEGER 

** FILE NUMBERS ** TtonEX 

.1 sew « d« 

•7 

NO 8 TAT % ■ 10 

INPUT " ^Entar full fila daacriptor for indax fila " , INDEX$ 
Op£TlNDE« JoR INPOT « .3 • ..9- 0:KISE R \FLEINDX1 

DO WHILE NOT EOF (3) 

INPUT #3, FILENAME $ 

FILENAMES - RIGHT$ (UCASE$ (FILENAME$) , 0) 

CALL INIT (FILENAME^ , FILENAME1$) 

CALL FIXPOINTER 

PRINT LOG$ (SB$ , " FINISHED FIXPOINTER") 

CALL CRE8DT1 ' Close FILES 

CALL FIN 

LOOP 
CLOSE 3 


I 



I 


END ' MAIN PROGRAM ’ DUMMY PAGE $ ?r?; PAGE; EXIT; 


SUB BI1 (BIP%()) 

•#*«####«## 

' Purpose \ Reads FILESCN$ using circular buffer OC 

>SCAN() 

' \ and managas pointars, BIP%() . 

'Parameters \ BIP%() Circular buffer pointars 

' Othar input data \ 

'Input files \ FILESCN$ - . SCN 

'Output files \ 

' Othar output data \ OCSCAN ( ) 

' Function aalls \ 

' Subroutina calls \ 

' Comnants \ 

1 ########## 


SHARED OCSCAN () AS INTEGER 

SHARED FILEACP%, F I LED AT % , FILEDUM% , FILEIDX%, FILEDT1 % , FILESCN% 
' SIZE , FIRST , LAST , TRIG , NREC , NEOF, PI 
NORIB - BIP% (3) - BIP% (2) 'If buffer low AND EOF-.F. 

IF NORIB < 0 THEN NORIB - NORIB + BIP%(1) 

IF NORIB < BIP% (4) AND BIP%(6) - 0 THEN 

FORI - 1 TO BIP% (5) 'Load buffar 

GET FILESCN% , , OCSCAN (BIP% (3) , 1) 

BIP% (3) - BIP% (3) + 1 

IF BIP% (3) > BIP% (1) THEN BIP* (3) - 1 
IF EOF ( FILESCN% ) THEN 

BIP% (6) - BIP% (3) 'Points at last 

EXIT FOR 
END IF 
NEXT I 
END IF 

JDUM » BIP% (2) 

BIP% (2) - BIP% (2) + 1: IF BIP%(2) > BIP%(1) THEN BIP%(2) = 1 'Inc 

>remant first 

IF BIP« (2) - BIP%(6) THEN 'READ BEYOND DATA 

BIP% (2) - JDUM 

PRINT "****** ERROR READING EOF (FILESCN%) IN BI1 ******" 

END IF 


END SUB ' BI1 ’ DUMMY PAGE $ ?r? ; PAGE ; EXIT; 


SUB BI2 (BIP%()) 

' Purposa \Raad tha fixation data into circular buf 

>fars and\ 

' \ compute a faw preliminary statistics. 

'Paramatars \BIP%() Circular buffar pointars 

' Othar input data \ 

'Input filas \FILEDAT% “.DAT 
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'Output fllM. . • ■ V BIP%() XLOOKO i YLOOK ( ) ,PUPDIAMO ,FIXLEN 

•OthT output data TRACKO Circular buff.r. 

' \SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK, NUMINTRACK, NUMOUTTRACK 

•Function calla ' 

' Subroutina oalla \ 

' Common ta 

• ########## 

SHARED INTRACK {) AS INTEGER 
SHARED FIXLENGTH ( ) AS INTEGER 
SHARED XLOOKO AS INTEGER 
SHARED YLOOK () AS INTEGER 

SHARED PUPDIAMO AS INTEGER Traar 

SHARED SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK AS LONG 

SHARED NUMINTRACK, NUMOUTTRACK M FILEDT1% FILESCN% 

SHARED FILEACF% , FILEDAT*, FILEDUM% , FILEIDX%, FILED 

-iSS* "SiST' *”■ * N “ c * • 

NORIB - BIP% (3) " BIPa (Z) 

IF NORIB < 0 THEN NORIB « NORIB + BIP% (1) 

IF HOR1B < BIF%<4> AND HOT EOF<FIU»AT%> THEN ^ 

£ FI^A« B ”^OK(BI»<3.»: BBT FILEDAT % , . 

IF NOT EOF ( FI LED AT %) THEN „,-,****. tttvt.E 

0IT FILEDATt , , PUFDI»M<BIF% (3) ) : , 

9UMFIXLENSTH - SUMFIXLENSTH + FIXLEHGTH (BIT* ( 3 H 

E?SS£5S*o! »“-** AND YDOOK<BIP»<3,, - 0 AND FOPDIA 
IF XLOOMBIPtlBU __ >M(B ip %(3) , < n THEN • out of track 

SUMQUTTBACK^^SOHOUTTRACK * 

NUMOUTTRACK — NUMOUTTRACK + 1 
rTqF ' in track 

SUMINTRACK - SUMINTRACK + FIXLENGTH (BI PM 3»^^ 

NUMINTRACK — NUMINTRACK + 1 
END IF 

BIP% (3) = BIP% (3) + 1 

IF BIP%(3> > BIP% (1) THEN BIP%<3> = 1 

ELSE 

EXIT FOR 
END IF 
NEXT I 

£%"> - BIFt (2) ♦ 1. IF BIPM2, > BIF%U» THEN ^‘^t^t 




END SUB 


• BI2 ' DUMMYPAGE$ ?r? ; PAGE ; EXIT ; 
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SUB CRE8DT1 


1 Purpose 


\ Initial craation of tha . MRG fila using 


> data from 

\ .DAT and tima history pointar array from subroutina 


' \ FIXPOINTER 

'Paramatars \ nona 

'Othar input data \ NUMMRG% , PUPDIAM, FIXPNTER, XLOOK, CPI! 

>, YLOOK 

' \ FIXLENGTH, 

•Input filas \ FILEDAT$* .DAT 

'Output filas \ FILEDT1$« .DTI 

•Othar output data \ nona 

•Function aalls \ LOG$ 

’ Subroutina aalls \ BI2 

' Comments \ Tar gat typa is sat to 0, "UNK" for in-t 


' \ 80, 

•#•«•«*#### 


>racks or 

"OUT" for out-tracks. Othar fialds ara initializad 
\ to unraalistic constants. 


SHARED BI2P() AS INTEGER • Buf faredlnput 2 

SHARED FILEACP$ , FXLEDAT$ , FILEDUM$ , FILEIDX$, FILEDT1$ , FILESCN$ 

SHARED FILEACP%, FILEDAT*, FILEDUM% , FILEIDX%, FILEDT1%, FILESCN% 

SHARED FIXLENGTH () AS INTEGER 

SHARED FIXPNTER () AS INTEGER 

SHARED XLOOK () AS INTEGER 

SHARED YLOOK () AS INTEGER 

SHARED PUPDIAM () AS INTEGER 

SHARED XDT1 AS DTI 


» 

SB$ ■ •' (CRESDT1 " 

CLOSE FILEDT1% 

OPEN FILEDT1$ FOR RANDOM AS #FILEDT1% LEN * 10’ FIXATION, TIME HI 

>STORY MERGE 

NUMMRG4 "■ LOF ( FILEDT1 % ) 'can tha fila ba found 

IF NUMMRG£ <> 0 THEN 

PRINT LOG$(SB$, FILEDT1$ + " is not ampty and you ara trying 

> to opan it for output") 

PRINTLOG$(SB$, "NUMFIX% - "); NUMFIX%; "NUMMRG& » '• ; NUMMRG4 
A$ - "Do you want to close " + FILEDT1$ + '• and exit CRE0DT1 

> subroutine" 

CALL YESORNO (A$ , B$) 

IF B$ - "Y" THEN CLOSE FILEDT1% : - EXIT SUB 
END IF 


SEEK #FILEDAT% , 1 'REWIND FILE £ RESET BUFFER 

I - nfixbuf : BI2P(1) - I: BI2P(2) - 0: BI2P(3) = 1: BI2P(4) « .2 


>* I 

BI2P (5) - .7 * I: BI2P(6) - 0: BI2P(7) = 1 


FOR 1*1 TO NUMMRG% 
CALL BI2 (BI2P() ) 
II - BI2P (2) 
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XDT1.TXM. . FIXFNTER(I) : XDT1.XL - XLOOK.H, : XDT1 . YL - YLOO 

- «™=th,i 

NEXT I 

'CLOSE FILEDT1% 






END SUB 


' CRE8DT1 


SUB FIN 
9 ########## 


' Purpoaa v 

' Parana tars 

" • • • \ 
V 

•Othar Input data 

1 • • • \ 
...\ 

'Input filaa 

V 

'Output filaa... 

* • • \ 
\ 

'Othar output data. . . 

• • • \ 
. . .\ 

'Function oalla. 


•Subroutina oalla. 

• • • \ 
. . a\ 


\ Cloaa all filaa, .cal. and output a fat 


> •tatistica 

if su MINTRACK , SUMOUTTRACK, 
>NUMINTRACK , NUMOUTTRACK 


' Commants . 


PRINT LOG$(SB$ "NTIMbpo ' totals for . txt fila 

9 (SB?, NUMBER OF OUT TRACK FIXATIONS-) ; NUMOUTTRA 

PRINT USING M 4 on mu 

--ni* " ™?, !!**■*? t^ 3 " ; L0G «< SB ». "total 
PRINT USING "4 #*###* on tf#*# mu SUMINTRACK / SUMINTRACK / 30 

>m OOT ^ “<#<»». "TOTAL 

PRINT USING "£ mm 0R sumo °TTRACK / 30 

>FIXATION tJI'is ” "TOTAL 

PRINT USING »4 *«« *« on aa f U “ FIXLENGTH SUMFIXLENGTH / 30 

---»» track fixatio”i” V "«™ge 

) / SUMINTRACK / NUMINTRACK; SUMINTRA 

PRINT USING »4 #«« «# OR uu u» a „~Z~~ >CK / NUMINTRACK / 30 

— ->OOT TRACK FIXATION'” “l ‘ S LOfi *« SB *- "AVERAGE 

13 > ; SUMOUTTRACK / NUMOUTTRACK; SOMOUT 

END IF >TRACK / NUMOUTTRACK / 30 

CLOSE 1, 2, 4, 5, 6, 7, 9 

' . 



“ SUB ' ™ -DUMMTPAGE? • • ?r?; PAGE," EXIT,: 

SUB FIXPOINTER 
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purpose 


i 

i 

» 

i 

» 

t 


* \ Thi* routine a.aigna a t^^history , to 

X ..oh fiction. Th. «.tci.fd 

X «hioh ti~ .hould th. t.rg.t 

\ with and tharafora where w 
' \ of the fixation. 

Parameter. . ■ ■ • • * \ OCSCAN ( ) , BI1P0 , FONT$ 

Otbar input A fILESCNS thru BI1 only. ... for a 

input * * ... A #9 * P* int out ° f • _!!->ach fixation 

Output 

„ \ FIXPNTERO , NUMMRO% 

Othar output data . . • • • • ^ LQa§ 

Subr outina* cal A « fir , t .can # i* r.cordad^t^time^ 

, c ““ x — . « th;^ 

, \ .can # ia 10, than .DAT r ^ at t=12 second. 

\ —ooiatad .inc. the firrt .AGP 

\ or record ^on^t to t = 0 . 

’*** \ Tha first antry on the fci ^ ^•^^l^Iecond. . 

N ^ tv+l\ an 


*** 


. 1 _ 1 , then fixations < 
' “ th * *« *• 1 


(k+1) ara 
. tiroa=0 


* * * 


*** 


\ Th * mm* 1 ”! i (<2°> du ^ 

' 4 ..cond f ram. .r. dropp«l- 

„ , do .. not th.n drop through 

' I£ th * TtI.T.^1 it do... 

S’iss“ "SMS? 

S ssi«--TS- 

SHARED PAGES, FONTS , 

SB$ - " (FIXPOINTER " .REWIND FILE & RESET BUFFER 

S«K . 1: BI1P.4. - 

z . n.canbuf : BI1PU) __ tan t 

I1I(5) . . It BI1P (4) - 0: BHP.7, = I—*"* “ * " nt 

SCNPREV% - -1 . ! i. tha racord# on thaACP fxla 

POM - 1 TO NUMSCAN% , ^xJMSCAN% defined in INIT 

CALL BII(BIIPO) 
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SCN% ■ OCSCAN (BI1P (2) , 1) ' scn%- fixation# from SCN fila 

ir SCN% >- 1 AND SCN% <- NUMFIX% THEN • out-of-ranga arror 
IF 8CN% > SCNPREV% THEN ’If aqual loop otharwiaa arror 
FOR J - SCNPREV% + 2 TO SCN% + 1 
IF J <■ NOMFIX% THEN 
FIXPNTER(J) * I 
JTEMP - J 
END IF 
NEXT J 

SCNPREV% - SCN% 

ELSE 

IF SCN% < SCNPREV% THEN 'not monotonic 

PRINT LOG$(SB$, "******** ERROR SCAN POINTER 

DECREASING " ) ; I , SCN% 

END IF 
END IF 

ELSE 

PRINT LOG$ (SB$ , "FIXATION POINTER OUT OF RANGE 


END IF 

***** * —wo ' NU1*1RG% DEFINED 

HTJMMRO% ■ JTEMP 

PRINT LOG$ (SB$ , "NUMBER OF MERGE FILE FIXATIONS IS ") ; NUMMRG% 


I 

t 

END SUB 


i FIXPOINTER 'DUMMYPAGE$ ?r? ; PAGE; EXIT; 


SUB INIT (FILENAMES, 
•#•#«#*###« 

1 Purposa 


FILENAME1S) 

, . . . Initializa paramatara on both circular 

>buf fers 


i \ initializa sums to zaro. Lat usar choosa partic- 

i \ ular run for analysis. Datarmine aid typa for 

• \ subsaquant branching. Opan FILESCN$, FILEDAT$, 

i \ FILEACP$ and stora thair langths. 

• Paramatara \ nona 

■Othar input data \ 

•Input filas \ FILESCN$, FILEDAT$ , FILEACP$ 

•Otha^output data \ Fila namas £ unit #’s. Initializad vari 

>abl*s, sums 

, \ and pointars and tha branch variabla IAID 

'Function calls \ LOG$ 

' Subroutina calls \ nona _ . _ _ 

•Conmants \ I don't think z ' m u-ing thls 30 stuff. 


SHARED BI1P0 AS INTEGER 
SHARED BI2P() AS INTEGER 

SHARED FILEACP$, FILEDAT$ , FILEDUM$ , FIL*EIDX$ , 
SHARED FILEACP%, FILEDAT% , FILEDUM% , FILEIDX%, 


’ Buf f aradlnput 1 
* Buf f aradlnput 2 
FILEDT1 $ , FILESCN$ 
FILEDT1%, FILESCN% 
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SHARED IAID AS INTEGER 

SHARED NUMINTRACK , NUMOUTTRACK AS INTEGER 

SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUT TRACK AS LONG 

SB$ - "(INIT " 

' SIZE , FIRST , LAST , TRIG , NREC , NEOF, PI 
I » nscanbuf: BI1P(1) ■ I: BI1P(2) - 0: BI1P(3) ■ Is BI1P(4) ■ .2 

> * I 

BI1P (5) - .7 * I: BI1P(6) - 0: BI1P(7) - 1 
'FOR L - 1 TO 7: print BI1P(L) : NEXT L 

I - nfixbuf : BI2P(1) - I: BI2P(2) - 0: BI2P(3) - 1: BI2P(4) = .2 

>* I 

BI2P (5) - .7 * I: BI2P (6) - 0: BI2P<7) = 1 
NUMFIX% - 0: NUMSCAN% - 0 

SUMFIXLENGTH ■ 0: SUMINTRACK - 0: SUMOUTTRACK = 0 
NUMINTRACK - 0: NUMOUTTRACK - 0 


IF FILENAME$ - "" THEN PRINT : PRINT : PRINT : STOP 
FILENAME 1$ - RIGHT$ (UCASE$ (FILENAME$) , 8) 

SELECT CASE MID$ (FILENAME1$ , 5, 1) 

CASE "M" 

IAID - 1 
CASE "D" 

IAID « 2 
CASE "G" 

IAID - 3 
CASE "S" 

IAID * 4 
CASE ELSE 

IAID - 9 

END 8ELECT 

IF IAID ■ 9 THEN PRINT LOG$ (SB$ , "CASE FROM FILENAME MUST BE MN,D 

>C,GR or SL") : PRINT : STOP 

IAID1 - VAL (MID$ (FILENAME1$ , 7, 1)) 

IF IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOG$(SB$, "CASE FROM FILE 

>NAME MUST BE 170 OR 210") : PRINT : STOP 

IAID * IAID * 10 + IAID1: PRINT IAID 

FILEDAT$ - FILENAME$ + ".DAT": FILEDAT% = 2 'append extension 

FILEDT1$ - FILENAMES + ".DTI": FILEDT1% = 6 

FILESCN$ - FILENAMES + " . SCN" : FILESCN% * 1 

' COMMENT: FILE NAME SHOULD LOOK LIKE 

' "C : \FASAFILE\CRONE\CC10SLCE" 

I 

1 * * 

OPEN FILESCN$ FOR BINARY AS #1 ' oculomotor scan file 

NUMSCAN% - LOF(l) / 2 'can the file be found 

IF NUMSCAN% - 0 THEN 

PRINT LOG$(SB$, FILESCN$) ; " FILE NOT FOUND" ' fix this test 
EXIT SUB 

ELSE : PRINT LOG$(SB$, "NUMBER OF 4 SECOND SCANS IS "); NUMSCAN% 
END IF 

I 

OPEN FILEDAT$ FOR BINARY AS #2 'oculomotor .dat file 
NUMFIX% - LOF (2) / 8 'can the file be found 

IF NUMFIX% » 0 THEN 


I 


fix this t«»t 


PRINT LOO$(SB$, FILEDAT$) ; "FILE NOT FOUND" 

■VTW SOB 

ELSE : PRINT LOG$(SB$, "NUMBER OF FIXATIONS IS ") i 
END IF 


END SUB 


INIT 'DUk®ffPAOE$ ?r? ; PAGE; EXIT; 


NUMFIX% 


PROGRAM PL TnATCi 

TYPE REGTYPE 

AX AS INTEGER 
BX AS INTEGER 
CX AS INTEGER 
DX AS INTEGER 
BP AS INTEGER 
SI AS INTEGER 
DI AS INTEGER 
FLAGS AS INTEGER 
OS AS INTEGER 
ES AS INTEGER 
END TYPE 

DIM INREG AS REGTYPE 
DIM OUTREG AS REGTYPE 


CPI! = 204.8: 
DOTSIZE! - .01 
TITLE? « " Look 
T% - 0 


Point Positions In Oculometer Coordinates" 


DO 


ON ERROR GOTO NOSUCHFILE 
OPEN "fleindxl" FOR INPUT AS #1 
ON ERROR GOTO 0 

IF T% - 1 THEN PRINT "Can't find INDEX file END 

INPUT #1, FILENAME? 

IFFILENAME? “ "" THEN PRINT "BLANK LINE INDEX FILE": EXIT DO 
RUN? - RIGHT? (FILENAME?, 8) 

DAT? ■ FILENAME? + ".DAT" 

PRINT RUN?, DAT? 

T% - 0 

ON ERROR GOTO NOSUCHFILE 

OPEN DAT? FOR INPUT AS #2 
ON ERROR GOTO 0 

IF T% ■ 1 THEN PRINT "Can't find -OCULOMETER DATA FILE :" + 

CLOSE 2 >DAT$: EXIT 00 

OPEN "R" , #2, DAT?, 8 

FIELD #2, 2 AS A?, 2 AS B?, 2 AS C?, 2 AS D? 

LENFLE% - LOF(2) / 8 'OK THE .DAT FILE IS OPEN FOR RAND 

>OM INPUT 

SCREEN 12 

CLS 1 

BLX “ -5: BLY ” -5: TRX * 5: TRY 
TLX1 - 110: TLY1 - 50: BLX1 - 610: BLY1 

WINDOW (BLX, BLY) -(TRX, TRY) 

VIEW (TLX1 , TLY1) - (BLX1 , BLY1) , , 1 


5 ’ CORNERS OF THE WINDO 

>W, INCHES 

430 ' CORNERS IN P 
>IXELS 


SFX! 

SFY! 


1 / CPI! 
1 / CPI! 
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XO! - 0 
YO! - 0 
LOCATE 2, 23 
PRINT TITLE$ 


J% - 0 

FOR 1% - 1 TO LENFLE% 
GET #2, 1% 

A% - CVI (A$) : B% 
IF A% <> 0 OR B% 
J% - J% + 1 
X! - SFX! * 
CIRCLE (X! , 
END IF 
NEXT 1% 

LOCATE 3, 30 
ID$ « DATE$ + " 


% 

rn CVI (B$) : C% - CVI (C$) : D% - CVI(D$) 
<> 0 OR C% > 10 THEN 

A% + XO!: Y! - SFY! * B% + YO! 

Y! ) , DOTSIZE 


" + LEFT$(TIME$, 5) + " " + + " 

> •> + STR$ (J%) 


PRINT ID$ 

I 


CLOSE 2 

'CALL INTERRUPT ( 4H5 , INREG, OUTREG) 


1 &H5 is print scre«n fu 
>nction 


SCREEN 0 

LOOP WHILE NOT EOF(l) 

CLOSE 1 

END 

N08UCHFILE : 

T% - 1 
RESUME NEXT 


4 
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PROGRAM PRNDAT 

START: 

PRINT " This program lists rscords from oculomstar .DAT files." 
DO 

PRINT : PRINT 

INPUT "antar fila nama" ; FLE$ 

IF FLE$ - "" THEN END 

NN$ - LEFT$ (RIGHT? (FLE$ , 12), 8) + " . PRN" 

PRINT NN$ 

T% - 0 

ON ERROR GOTO NOSUCHFILE 
OPEN FLE$ FOR INPUT AS #1 
ON ERROR GOTO 0 
IP T% ■ 1 THEN GOTO START 
CLOSE 1 

OPEN "R", #1, FLE$, 8 

FIELD #1, 2 AS A$, 2 AS B$, 2 AS C$, 2 AS D$ 

LENFLE% - LOF(l) / 8 
OPEN NN$ FOR OUTPUT AS #8 
PRINT #8, : PRINT #8, 

PRINT #8, "THE FOLLOWING DATA IS FROM THE FILE, " ; FLE$ 

PRINT #8, "The numbar of racords on tha file is : LENFLE% 

PRINT , "Tha number of racords on tha fila is : LENFLE%, 

>FLE$ 

DO 

PRINT 

INPUT "STARTING RECORD # " ; RNI% 

IF RNI% - 0 THEN EXIT DO 
INPUT "LAST RECORD # RNMAX% 

IF RNMAX% - 0 THEN EXIT DO 

IF RNMAX% < 0 OR RNMAX% > LENFLE% THEN RNMAX% * LENFLE% 

IF RNI% < 0 OR RNI% > RNMAX% THEN RNI% = RNMAX% 

PRINT #8, "PRINT FROM RECORD # "; RNI%; " to RNMAX% 

PRINT #8, "Record #", " x" , » y" , "Pupdiam", "Length" 

FOR 1% m RNI% TO RNMAX% 

GET «1, 1% 

PRINT #8, 1%, CVI (A$) , CVI (B$) , CVI(C$), CVI(D$) 

NEXT 1% 

LOOP 

CLOSE 1, 8 


LOOP 

NOSUCHFILE : 

PRINT "Couldn't find input fila FLE$ 

T% - 1 
RESUME NEXT 
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PROGRAM PRMDT1 

START: 

PRINT " Thia program liata raoorda from ooulomatar .DAT filaa." 
DO 


PRINT : PRINT 


INPUT "antar fila nama" ; FLE$ 

IF FLE$ - "" THEN END 

NN$ - LEFT$ (RIGHT$ (FLE$ , 12), 8) + " . PRT" 

PRINT NN$ 

T% - 0 

ON ERROR GOTO NOSUCHFILE 
OPEN FLE$ FOR INPUT AS #1 
ON ERROR GOTO 0 
IF T% - 1 THEN GOTO START 
CLOSE 1 

OPEN "R", #1, FLE$, 10 

FIELD #1, 2 AS T$, 2 AS A$, 2 AS B$, 2 AS C$, 2 AS D$ 

LENFLE% - LOF(l) / 10 
OPEN NN$ FOR OUTPUT AS #8 
PRINT #8, : PRINT #8, 

PRINT #8, "THE FOLLOWING DATA IS FROM THE FILE, "; FLE$ 

PRINT #8, "Tha numbar of raoorda on tha fila ia : LENFLE% 

PRINT , "Tha numbar of raoorda on tha fila ia : "; LENFLE% ; 

>FLE$ 


DO 

PRINT 

INPUT "STARTING RECORD # RNI% 

IF RNI% ■ 0 THEN EXIT DO 
INPUT "LAST RECORD # RNMAX% 

IF RNMAX% - 0 THEN EXIT DO 

IF RNMAX% < 0 OR RNMAX% > LENFLE% THEN RNMAX% - LENFLE« 

IF RNI% < 0 OR RNI% > RNMAX% THEN RNI% = RNMAX« 

PRINT #8, "PRINT FROM RECORD # "; RNI%; " to "; RNMAX% 
PRINT #8, "Racord #" , "T", " x" , " y" , "Pupdiam", "Langth" 
FOR 1% ■ RNI% TO RNMAX% 

GET «1, 1% 

PRINT #8, 1%, CVI (T$) , CVI (A$) , CVI(B$), CVI(C$), CVI (D$) 
NEXT 1% 

LOOP 

CLOSE 1, 8 


LOOP 

NOSUCHFILE : 

PRINT "Couldn't find input fila FLE$ 

T% - 1 

RESUME NEXT 



PROGRAM PRNMRG 

TYPE FIXCOMB 

TGTTYPEN AB INTEGER 
TGTTYPEC AS STRING * < 
FIXLNGTH AS INTEGER 
PUPDIAM AS INTEGER 
TGTID AS STRING * 3 
DISTANCE AS SINGLE 
FRAMENO AS INTEGER 
TGTX AS SINGLE 
TGTY AS SINGLE 
FIXX AS SINGLE 
FIXY AS SINGLE 
HEADING AS STRING * 3 
COUNTDOWN AS INTEGER 
CONTFIX AS STRING * 1 


■NON ZERO MEANS HIT 
•TARGET TYPE 


'ID OF CLOSEST TARGET 
•BETWEEN CLOSEST TARGET AND FIXATION 
•TIME HISTORY FRAME * 
•TARGET POSITION 


•FIXATION POSITION 


•DICE 
•DICE 
•IS THIS 


>A CONTINUATION OF THE PREVIOUS FIXATION 

CROSSCHECK AS STRING * 1 

•WHAT AREA OF THE TUBE IS THE FIXATION? 

•SPLADT S-on, F-off 
'A-on, F-off 


ZONE AS STRING * 2 
SPEED AS STRING * 1 
A I DON AS STRING * 1 
SPARE AS STRING * 8 


END TYPE 
DIM frmt$ 

DIM XX AS FIXCOMB 
DIM XXX$ 

frmtl$ - "## \ \ #### #### \ \ ###•## #### " 

frmt2$ - ••###.## ###•## ###•## ###•## \ \ ### ! «" 
frmt3$ - "! 1 \\ » ! t t \ \" 

START: 

pjUjjT n This program lists records from oculomotor . MRG films. " 

DO 

PRINT : PRINT 

INPUT "an tar fULL FILE DESCRIPTOR WITH EXTENSION" ; FLE$ 

IF FLE$ ■ " " THEN END 

FLE1$ - LEFT$(FLE$, LEN (FLE$) - 4) 

OPEN FLE1$ + " . MGX" FOR RANDOM AS #1 LEN = 4 

IF LOF<l) - 0 THEN PRINT " can't find index file FLE1$ + 

>".MGX": CLOSE 1: STOP 

LENMGX% - LOF(l) / 4: PRINT "NUMBER OF RECORDS ON MERGE FILE 

> =" ; LENMGX%; FLE$ 


OPEN FLE$ FOR INPUT AS #2 

OPEN FLE1$ + " . PTl " FOR OUTPUT AS #8 

PRINT #8, : PRINT #0, 

PRINT #8, "THE FOLLOWING DATA IS FROM THE FILE, FLE§ 

PRINT #8, "The number of records on the file is LENMGX% 

DO 

PRINT 

INPUT "STARTING RECORD # RNI% 

IF RNI% - 0 THEN EXIT DO 
INPUT "LAST RECORD # RNMAX% 

IF RNMAX% - 0 THEN EXIT DO 

IF RNMAX% < 0 OR RNMAX% > LENMGX% THEN RNMAX% - LENMGX% 
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IF RHI* < 0 OR RNI% > RNMAX% THEN RNI% * RNMAX« 

PRINT #8, "PRINT FROM RECORD # RNI%; " to RNMAX%: PRI 

>NT #8, 

PRINT #8, "R*o# Tp Typ Fxt PD TgID Di»t FrNo TgtX T 

>gtY FixX FixY Hdg CD" 

GET #1, RNI% , N£ 

SEEK 2, N£ 

FOR 1% - RNI% TO RNMAX% 

INPUT #2, XX . TG TTY PEN , XX . TG TTY PEC , XX . FIXLNGTH , XX. PUPDIAM, 

> XX.TGTID, XX. DISTANCE, XX . FRAMENO , XX. TGTX, XX.TGTY, XX. FIX 

>X, XX. FIXY, XX. HEADING, XX . COUNTDOWN , XX.CONTFIX, XX. CR 

X5SSCHECK, XX. ZONE, XX. SPEED, XX.AIDON, XX. SPARE 

PRINT #8, USING "#### 1%; 

PRINT #8, USING frmtl$; XX . TGTTYPEN ; XX . TGTTYPEC ; XX.FIXLNGT 

>H ; XX. PUPDIAM; XX.TGTID; XX. DISTANCE; XX. FRAMENO; 

PRINT #8, USING frmt2$; XX. TGTX; XX.TGTY; XX. FIXX; XX. FIXY; 

>XX. HEADING; XX . COUNTDOWN ; XX.CONTFIX; 

PRINT #8, USING frmt3$; XX. CROSSCHECK; XX. ZONE; XX. SPEED; XX 

> . A I DON ; XX. SPARE 

NEXT 1% 

LOOP 

CLOSE 1, 2, 8 

LOOP 

NOSUCHFILE : 

PRINT "Couldn't find input fil* " ; FLE$ 

T% - 1 
RESUME NEXT 



Program QKIook 

' ?r ? ; RES ; FONT 62; EXIT; 


DEFINT I-N 

DECLARE SUB BI1 (BIP%()) 

DECLARE SUB BI2 (BIP%<)) 

DECLARE SUB CRE8MRGFLE () 

DECLARE SUB FIN () 

DECLARE SUB FIXPOINTER () 

DECLARE SUB GETXX (FILENO%) 

DECLARE SUB INIT () 

DECLARE FUNCTION LOQ$ (SB$, A$) 

DECLARE FUNCTION LOOS$ (SB$, A$) 

DECLARE SUB PUTXX (FILENO%) 

DECLARE SUB YESORNO (A$ , B$) 

CONST pi! « 3.14159 

CONST necanbuf - 400, nfixbuf ■ 5000 

CONST SF! - .472, XOFF! ■ -3.27, YOFF! “ -2.1, cpi ! » 102.4, alph 

>»! « -11.5 * pi! / 180, runoff! = -.34 


CONST big! « 3!, little! - 
TYPE FIXCOMB 

TG TTY PEN AS INTEGER 
TGTTYPEC AS STRING * 
FIXLNGTH AS INTEGER 
PUPDIAM AS INTEGER 
TGTID AS STRING * 3 
DISTANCE AS SINGLE 
FRAMENO AS INTEGER 
TGTX AS SINGLE 
TGTY AS SINGLE 
FIXX AS SINGLE 
FIXY AS SINGLE 
HEADING AS INTEGER 
COUNTDOWN AS INTEGER 
CONTFIX AS STRING * 1 


1 ! 


'NON ZERO MEANS HIT 
'TARGET TYPE 


•ID OF CLOSEST TARGET 
■BETWEEN CLOSEST TARGET AND FIXATION 


'TIME HISTORY FRAME # 
'TARGET POSITION 

'FIXATION POSITION 


'DICE 
'DICE 
'IS THIS 

>A CONTINUATION OF THE PREVIOUS FIXATION 

CROSSCHECK AS STRING * 1 

ZONE AS STRING * 2 'WHAT AREA OF THE TUBE IS THE FIXATION? 
END TYPE 
DIM frmt$ 

frmt$ - "## / / #### #### / / ###.## #### ###.## ###.## ###.## # 

>##.## ### ### ! ! //" 


DIM XX AS FIXCOMB 
DIM XXX$ 

DIM ACID(1 TO 50) AS INTEGER 
DIM ROUTE (1 TO 50) AS INTEGER 
DIM ZONE ( 1 TO 50) AS INTEGER 
DIM ACX(1 TO 50) AS SINGLE 
DIM ACY ( 1 TO 50) AS SINGLE 
DIM dicehead% (1 TO 20) 

DIM dicetizne%(l TO 20) 

DIM IAID AS INTEGER 

DIM TIEPEC (1 TO 50) AS STRING * 4 

DIM TIEPEN ( 1 TO 50) AS INTEGER 
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DIM BI1P (1 TO 7) AS INTEGER ' Buff arad Input 
DIM BI2P (1 TO 7) AS INTEGER • Buff arad Input 
DIM BOP (1 TO 7) AS INTEGER 
DIM FILEACP$, FILEDAT$ , FILEDUM$ , FILEDX2$, 

DIM FILEACP%, FILEDAT% , FILEDUM% , FILEDX2*, 


1 

2 

'Buffered Output 
FILEIDX$, FILEMRG$ , F 

>ILESCN$ 

FILEIDX% , FILEMRG%, F 


DIM FI XPN TER (26000) AS INTEGER >ILESCN% 

DIM FIXLENGTH ( 1 TO nfixbuf) AS INTEGER 

DIM INTRACK ( 1 TO nfixbuf) AS INTEGER 

DIM NUMINTRACK, NUMOUTTRACK AS INTEGER 

DIM N4SS, N5SS, N6SS , N7SS , N8SS, N9SS AS INTEGER 

T9SS ' P1SS ' P233 ' P3aa « SINGLE 
uim OCSCAN (1 TO nsaanbuf , 1 TO 4) AS INTEGER 

DIM PUPDIAM(1 TO nfixbuf) AS INTEGER 

DIM SHARED NUMFIX%, NUMSCAN%, NOSTAT% , NU*MRG%, FILENAME 1$ 

DIM SUMFIXLENGTH, SUMINTRACK, SUMOUTTRACK AS LONG COMM ON****** 
DIM XLOOK (1 TO nfixbuf) AS INTEGER 

DIM YLOOK(l TO nfixbuf) AS INTEGER 

DIM IDX(1 TO 2000) AS LONG 


** FILE NUMBERS ** 
#1 SCN 
#4 IDX 
#7 DUM 


#2 DAT 
#5 DX2 


#3 ACP 
#6 MRG 

#9 PRINTER. FLE 


DIM PAGE$ , FONT$ 

NOSTAT% - 10 

DIM STATXS (NOSTAT%) , STATYS (NOSTAT%) AS SINGLE 
DIM STATID (NOSTAT%) AS STRING * 4 

DATA "DEN ","IOC » , "OM " , "KEAN" , "FLTS" , "WIVS" , "BYSN" , "TROZ" , "DRK 

>O h ii .tAQIsJ h 

I ■ 1 TO NOSTAT%: READ STATID (I) : NEXT I ' 

DATA 2.38,-19.49,-0.3,19.44,10.92,-10.24,-23.07,-8.22 29.42 14 67 

FOR I - 1 TO NOSTAT% : READ STATXS (I) : NEXT I ' 

^d^ ' 6 ?'^' 92 ' 6 * 1 ' 28 ' 79 ' 14 1,14 1 '“ 26 ' 08 ' -11 - 24 ' " 19 - 56 , -9.23 
FOR I - 1 TO NOSTAT%: READ STATYS (I) : NEXT I 
SB$ « " (MAIN » 

PRTCONTROL$ ■ CHR$(33) + "R" + CHR$ (33) 

PAGE$ ■ PRTCONTROL$ + " /PAGE; EXIT; " 

F0NT$ - PRTCONTROL$ + "; RES; FONT 62; EXIT-" 

' PAGE$ - CHR$ (12) 

' FONT$ - CHR$ (27) + CHR$ (80) 

DIM SINAL! , COSAL! 

SINALI « SIN (alpha!): COSAL! * COS (alpha!) 

XXX$ - "## \ \ #«## «#«# \ \ ##.## #### ###>## ##### ###>## ### 

(VV >.## ### #««# » ! \\« 

XX . TGTTYPEN - 0: XX. TG TTY PEC - "UNK" : XX . FIXLNGTH = 0: XX.PUPDIM 

, „„ > * 0: XX.TGTID * "Jil" 

XX. DISTANCE “ 9999: XX. FRAMENO * 9999: XX.TGTX = 0: XX.TGTY = 0: 

> XX.FIXX = 0: XX.FIXY = 0 

XX. HEADING - 999: XX. COUNTDOWN « 0: XX . CONTFIX = 0: XX . ZONE «= 99 
OPEN "BRENNAN" FOR INPUT AS #12 


' OFFICE 
' OFFICE 
'HOME 
' HOME 
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DO 

CALL INIT 

CALL FIXPOINTER 

PRINT LOO$ (SB $ , " 

CALL CRE8MRGFLE 

PRINT LOG$(SB$, " 

CALL FIN 

LOOP 


FINISHED FIXPOINTER") 
FINISHED CRE8MRGFLE") 


' Close FILES 


END 


MAIN PROGRAM ' DUMMYPAGE$ 


? r ? ; PAGE ; EXIT ; 


SUB BI1 (BIP%()) 


• increment 1 1 st INPUT file 


•««#«««#*#« 

' Parameters 

•Other input data. 

•Input files 

' Other output data 

•Output files 

' Function 

' Contents 


\ 

\ 

\ 

\ 

\ 

\ 

\ 


SHARED OCSCANO AS INTEGER 
SHARED FILEACP% , FILEDAT% , FILEDUM% , 


FILEDX2%, 


FILEIDX% , FILEMRG% 
>, FILESCN% 


•Load buffer 


1 Points at last 


i qi7F FIRST IiAST # TRIG . NREC , NEOF , PI 

J 1 ™' SrpiTof fT ’If buffer low m EOF= * F - 

NORIB - BIP% (3) - BIP% (2) \ ] 

IF NORIB < 0 THEN NORIB - NORIB + BIP%(1) 

IF NORIB < BIP%(4) AND BIP%(6) - 0 THEN 

FORI ■ 1 TO BIP%(5) V, 

GET FILESCN% , , OCSCAN (BIP% (3) , 1) 

BIP% (3) - BIP% (3) + 1 

IF BIP% (3) > BIP%(1) THEN BIP%(3) * 1 
IF EOF (FILESCN%) THEN 
BIP%(6) - BIP% (3) 

EXIT FOR 
END IF 
NEXT I 
END IF 

b "b«U> + 1= w bip% (2) > bip% , i, 

•READ BEYOND DATA 

IF BIP%(2) » BIP%(6) THEN 

BIP% (2) « JDUM . -T rarulit TN BIl ******" 

PRINT •'**♦*** ERROR READING EOF ( FILESCN% ) IN BIl 

END IF 


END SUB 


•BIl ' DUMMY PAGE $ ? r ? ; PAGE ; EXIT ; 


SUB BI2 (BIP%()) 


C42 


1 Increment 2 1 nd INPUT file 


Parameter* \ BIP%(), circular buffer pointer* 

Other input data \ 

Input files \FILEDAT% “.DAT 

Other output data \BIP%(), XLOOK() , YLOOK() , PUPDIAMO , FIXLEN 

X3TH ( ) , INTRACK () 

\ SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK, NUMINTRACK, NUMOUTTRACK 
Output files \ 

Function \Read the fixation data into circular buf 

>fers and 

\compute a few preliminary statistics . 
Comments \ 


SHARED INTRACK () AS INTEGER 
SHARED FIXLENGTHO AS INTEGER 
SHARED XLOOK() AS INTEGER 
SHARED YLOOKO AS INTEGER 
SHARED PUPDIAM() AS INTEGER 

SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 

SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 

SHARED N4SS, N5SS, N6SS, N7SS , N8SS, N9SS AS INTEGER 

SHARED T4S8 , T5SS , T6SS , T7SS , T8SS, T9SS , PISS, P2SS , P3SS AS SI 

>NGLE 

SHARED FILEACP%, FILEDAT%, FILEDUM%, FILEDX2%, FILEIDX%, FILEMRG% 

>, FILESCN% 

' SIZE, FIRST, LAST, TRIG, NREC,NEOF, Pi 
NORIB - BIP% (3) - BIP% (2) 'If buffer low AND EOF*».F. 

IF NORIB < 0 THEN NORIB - NORIB + BIP%(1) 

IF NORIB < BIP% (4) AND NOT EOF (FILEDAT%) THEN 

FOR I - 1 TO BIP% (5) 'Load buffer 

GET FILEDAT% , , XLOOK (BIP% (3) ) : GET FILEDAT% , , YLOOK(BIP%(3 

>) ) ' read record 

IF NOT EOF (FILEDAT%) THEN 

GET FILEDAT% , , PUPDIAM(BIP% (3) ) : GET FILEDAT% , , FIXLE 

>NGTH(BIP% (3) ) 

SUMFIXLENGTH * SUMFIXLENGTH + FIXLENGTH (BIP% (3) ) 

> ’total of fixations 

INTRACK (BIP% (3) ) - 1 

IF XLOOK(BIP% (3) ) * 0 AND YLOOK (BIP% (3) ) = 0 AND PUPDIA 

>M(BIP% (3) ) < 11 THEN ' out of track 

INTRACK (BIP% (3) ) “ 0 

SUMOUTTRACK * SUMOUTTRACK + FIXLENGTH (BIP% (3) ) 'tot 

>al out of track 


NUMOUTTRACK ■ NUMOUTTRACK + 1 
SELECT CASE FIXLENGTH (BIP% (3) ) 

CASE IS O 3 

N4SS « N4SS + 1: T4SS “ T4SS + FIXLENGTH 

><BIP%(3) ) 

CASE IS <» 12 

N5SS “ N5SS + 1: T5SS = T5SS + FIXLENGTH 

> (BIP% (3) ) 


CASE IS > 12 



N6SS - N6SS -I- 1: T6SS « T6SS -I- FIXLENGTH 

> (BIP% (3) ) 

END SELECT 

ELSE 1 in track 

SUMINTRACK - 8UMINTRACK + FIXLENOTH (BIP% (3) ) 

> ' total intrack 

NUMINTRACK - NUMINTRACK + 1 
SELECT CASE FIXLENGTH (BIP% (3) ) 

CASE IS <- 3 

N7SS - N7SS + 1: T7SS - T7SS + FIXLENGTH 

>(BIP%(3) ) 

PISS - PISS + PUPDIAM(BIP% (3) ) 

CASE IS <- 12 

N8SS * N8SS + 1: T8SS - T8SS -I- FIXLENGTH 

> (BIP% (3) ) 

P2SS - P2SS + PUPDIAM(BIP% (3) ) 

CASE IS > 12 

N9SS * N9SS + 1: T9SS = T9SS + FIXLENGTH 

> (BIP% (3) ) 

P3SS - P3SS + PUPDIAM(BIP% (3) ) 

END SELECT 
END IF 

BIP% (3) - BIP%<3) + 1 

IF BIP% (3) > BIP% (1) THEN BIPt(3) * 1 

ELSE 

EXIT FOR 
END IF 
NEXT I 
END IF 

BIP%(2) - BIP% (2) + 1: IF BIP%(2) > BIP%(1) THEN BIP%(2) » 1 ' Incr 

>ement first 


END SUB 1 BI2 'DUMMY PAGE $ ?r? ; PAGE;EXIT; 


SUB CRE8MRGFLE 

•########## 

1 Parana tars \ 

'Othar input data \ 

1 Input f lias \ 

1 Othar output data \ 

'Output filas \ 

' Function \ 

' Comnants \ 

1 IMMMMMMMMMI 


SHARED BI2P() AS INTEGER ' Buf feredlnput 2 

SHARED FILEACP$, FILEDAT$ , FILEDUM$ , FILEDX2$, FILEIDX$, FILEMRG$ 

>, FILESCN$ 

SHARED FILEACP % , FILEDAT% , FILEDUM% , FILEDX2%, FILEIDX%, FILEMRG% 

>, FILESCN% 

SHARED FIXLENGTH () AS INTEGER 
SHARED FIXPNTERO AS INTEGER 
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SHARED XLOOK() AS INTEGER 
SHARED YLOOK () AS INTEGER 
SHARED PUPDIAMO AS INTEGER 
SHARED XX AS FIXCOMB 


SB$ - " ( CREBMRGFLE " 


XX. TGTTYPEN ■ 0: XX . TGTTYPEC = "UNK": XX . FIXLNGTH = 0: XX.PUFDIAM 

>% = 0: XX.TGTID * "Jil" 

XX. DISTANCE “ 99.99: XX.FRAMENO * 9999: XX.TGTX “ 0: XX.TGTY « 0: 

> XX.FIXX = 0: XX.FIXY - 0 

XX. HEADING - 999: XX. COUNTDOWN - 0: XX.CONTFIX * "Z" : XX.CROSSCHE 

>CK - "Z": XX. ZONE - "99" 

SEEK #FILEDAT%, 1 'REWIND FILE £ RESET BUFFER ' 

I - nfixbuf: BI2P(1) - I: BI2P(2) ■ 0: BI2P(3) « 1: BI2P(4) * .2 

>* I 

BI2P (5) - .7 * I: BI2P ( 6) = 0: BI2P(7) “ 1 

I 

FOR I ■ 1 TO NUMMRG% 

CALL BI2 (BI2P () ) 

II - BI2P (2) 

XX . PUPDIAM - PUPDIAM(II) : XX.FRAMENO = FIXPNTER(I) : XX.FIXX 

>= XLOOK(II) / cpi ! 

XX.FIXY - YLOOK (II) / cpi!: XX. FIXLNGTH - FIXLENGTH ( I I ) 

IF XLOOK(II) - 0 AND YLOOK (II) * 0 AND PUPDIAM (II) < 11 THEN 

> 1 out of track 

XX. TGTTYPEN “ 89: XX. TGTTYPEC = "OUT" 

IF FIXLENGTH (II) < 13 THEN XX. TGTTYPEN = 80: XX . TGTTYPE 

>C = "BLNK" 

END IF 

' CALL PUTXX ( FILEMRG% ) 

XX. TGTTYPEN « 0: XX. TGTTYPEC = "UNK" 

NEXT I 

•CLOSE FILEMRG% 


f 


END SUB 1 CRE8MRGFLE ' DUMMY PAGE $ ?r? ; PAGE; EXIT; 


SUB FIN 
•««*«*##### 

' Paramatars \ 

' Othar input data \ 

'Input filas \ 

' Othar output data \ 

•Output filas \ 

' Function \ 

' Coalman ts \ 

•########## 

PO « 1 


SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 
SHARED NUMINTRACK , NUMOUTTRACK AS INTEGER 



SHARED N48S, N588, N6SS, N78S, N8SS, N9SS AS INTEGER 
SHARED T4S8, T5SS, T6S8, T7SS, T8SS, T9SS, PISS, P2SS, 


P3SS AS SI 
>NGLE 


CNf ■ 1 / 30: T4SS 


CN! * T4SS: T5SS “ CN! * T5SS: T6SS * CN! * 

>T6SS 


T78S 

CNlt 


CN! * T7SS: T8SS ■ CN! * T8SS : T9SS - CN! * T9SS 

25.4 / 2048: PISS ■ PISS * CN1! / N7S3: P2SS = P2SS * CN1! 

> / N8SS: P3SS * P3SS * CN1 ! / N9SS 


SB$ - " (FIN " 

IF NUMIN TRACK <> 0 AND NUMOUTTRACK <> 0 THEN 
Fl$ - "4 *««#.«« SECONDS" 

F2$ - "4 ##.## SECONDS" 

F3$ - "4 ####.## ####.## ####•## ####•## ####•## ####■##" 

F4$ - "4 ###.## ###.## ###.##" 

PRINT LOG$(SB$, "NUMBER OF IN TRACK FIXATIONS* "); NUMINTRAC 

>K; ' totals for .txt fila 

PRINT LOG$(SB$, "NUMBER OF OUT TRACK FIXATIONS*") ; NUMOUTTRA 

>CK 

PRINT USING Fl$; LOG$(SB$, "TOTAL TIME IN TRACK IS "); SUMI 

>NTRACK / 30 

PRINT USING Fl$; LOG$(SB$, "TOTAL TIME OUT TRACK IS "); SUMO 

MJTTRACK / 30 

PRINT USING Fl$; LOG$(SB$, "TOTAL FIXATION TIME IS "); SUMF 

>IXLENGTH / 30 

PRINT USING F2$; LOG$(SB$, "AVERAGE IN TRACK FIXATION IS 

>) ; SUMINTRACK / NUMINTRACK / 30 

PRINT USING F2$; LOG$(SB$, "AVERAGE OUT TRACK FIXATION IS " 

» ; SUMOUTTRACK / NUMOUTTRACK / 30 

PRINT LOG$(8B$, "N4 THROUGH N9 * ") ; N4SS; N5SS; N6SS; N7SS; 

> N8SS ; N9SS 

PRINT USING F3$; LOG$(SB$, "T4 THRU T9 - "); T4SS; T5SS ; T6S 

>S; T7SS ; T8SS ; T9SS 

PRINT USING F4$; LOG$(SB$, "PUP DIAM 1 TO 3 = "); PISS; P2SS 


IF PO - 1 THEN 

print #e, "eeeeeeeeeeeeeeeeeeeesseeeeeeeeeeeeeeeeeseGee 

> 0600008068000600680 " 

PRINT #8, FILENAME!. $ , FILENAME!. $ , FILENAME1 $ , FILENAME1 

>$, FILENAME1$ 

PRINT #8 LOG$ (SB$ , "NUMBER OF FIXATIONS IS (-N1-)"); 

>NUMFIX% 

PRINT #8, LOG$ (SB$ , "NUMBER OF IN TRACK FIXATIONS* (-N2 

>-)"); NUMINTRACK ' totals for .txt fila 

PRINT #8 LOG$ (SB$ , "NUMBER OF OUT TRACK FIXATIONS* (-N3 

>-)"); NUMOUTTRACK 

PRINT #8, LOG$ (SB$ , " (-N4 THROUGH N9-) * "); N4SS; N5SS 

> ; N6SS; N7SS; N8SS ; N9SS 


PRINT 

PRINT 

PRINT 

PRINT 


te' USING Fl$ ; LOG$ (SB$ , "TOTAL FIXATION TIME IS 

> (-T1-) ") ; SUMFIXLENGTH / 30 

#8 USING Fl$; LOG$(SB$, "TOTAL TIME IN TRACK IS 

> (-T2-) ") ; SUMINTRACK / 30 

#8, USING Fl$; LOG$ (SB$ , "TOTAL TIME OUT TRACK IS 
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> (-T3-) ") ; SUMOUTTRACK / 30 

PRINT #8, USING F3$ ; " (-T4 THRU T9-)"; T4SS; T5SS ; T6SS 

>; T7SS; T8SS; T9SS 

PRINT #8, 

PRINT #8, USING F4$; LOG$(SB$, "(-PUP DIAM 1 TO 3-) - " 

>) ; PISS; P2SS; P3SS 

PRINT #8, : PRINT #8, 

PRINT #8, USING F2$; LOG$(SB$, "AVERAGE IN TRACK FIXATI 

X)N IS "); SUMINTRACK / NUMINTRACK / 30 

PRINT #8, USING F2$; LOG$(SB$, "AVERAGE OUT TRACK FIXAT 

>ION IS " ) ; SUMOUTTRACK / NUMOUTTRACK / 30 

PRINT #8, LOG$(SB$, "NUMBER OF 4 SECOND SCANS IS "); N 

>UMSCAN% 

PRINT #8, LOG$(SB$, "NUMBER OF MERGE FILE FIXATIONS IS 

> ") ; NUMMRG% 

END IF 
END IF 

CLOSE 1, 2, 3, 4, 5, 6, 7, 8, 9 


END SUB ' FIN ' DUMMY PAGE $ ?r? ; PAGE ;EXIT; 


SUB FIXPOINTER 

■########## 

' Parameters \ 

' Other input data \ 

'Input files \ 

1 Other output data \ 

■Output files \ 

■ Function \ 

' Comments \ 

'########## 

• *** 


•*** This routine assigns a time history record #, (I) , to 
**** each fixation. The contents of FIXPNTER(N) indicates 
•*** which time record the N'th fixation is associated 
i*** with and therefore where one should seek the target 
•*** of the fixation. 

i *** 


SHARED FIXPNTER ( ) AS INTEGER 

SHARED FILEACP% , FILEDAT% , FILEDUM% , FILEDX2%, FILEIDX% , FILEMRG% 

>, FILESCN% 

SHARED BI1P() AS INTEGER 'Buffered Inputl 

SHARED OCSCAN ( ) AS INTEGER 
SHARED PAGE$ , FONT$ 

■ *** 

The first scan # is recorded at time = 4 seconds, 
it** Therefore if the third scan # is 3 and the 4 ' th 

•*** scan # is 10, then scans 5 through 11 point at 

i*** targets recorded at t*12 seconds or i=4 since 

t * <r ★ i»l corresponds to t=0 . 

■ *** 
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f *** 
♦ *** 
t *★ + 
’ *** 
» ★ 

• *★* 
» ♦** 
» ★** 

♦ 


Th« first entry on the tiros history file is time*0. 
The second entry is time«4 seconds. 

The first scan toggle precedes slightly this 2'nd 
entry i.e. -*4 seconds into the run. Thus spake Buddy 
after careful consideration and investigation on 4/3/91. 

If the 1 1 st scan # is k, then fixations <* (k+1) are 
pointed at time history frame 1, i.e. time=0. 


'*** Th* last time history frame is not used. 

> *** 

SB$ - " (FIXPOINTER " 

8EEK #FILESCN%, 1 'REWIND FILE £ RESET BUFFER 1 

' SIZE , FIRST , LAST , TRIG , NREC , NEOF, PI 
I - Mcanbuf: BI1P(1) - I: BI1P<2) - 0: BI1P<3) - 1: Blip (4) - .2 

> * I 

BI1P (5) “ .7 * I: BI1P (6) ■» 0: BI1P(7) ■ 1'nscanbuf Is a constant 
SCNPREV% « -1 

FORI ■ 1 TO NUMSCAN% ' i is tha record# on the ACP file 

CALL BI1 (BI1P () ) ' NUMSCAN% defined in INIT 

scn% « OCSCAN (BI1P (2) , 1) ’ scn%= fixation# from SCN file 

IF scn% >— 1 AND scn% <■ NUMFIX% THEN 
IF scn% > SCNPREV% THEN 

FOR J - SCNPREV% + 2 TO scn« + 1 
IF J <- NUMFIX% THEN 
FIXPNTER(J) - I 
JTEMP • J 
END IF 
NEXT J 

SCNPREV« - sent 

ELSE 


IF lent < SCNPREV% THEN 

PRINT LOG$(SB$, ********* ERROR SCAN POINTER 

DECREASING " ) ; I , sent 

END IF 
END IF 

ELSE 


PRINT LOG$ (SB$ , "FIXATION POINTER OUT OF RANGE"); I; BI 

>1P(2) ; sent 

END IF 
NEXT I 

NUMMRO* - JTEMP . NUMMRG% DEFINED 

PRINT LOG$(SB$, "NUMBER OF MERGE FILE FIXATIONS IS "); NUMMRG% 
'The remainder of this routine prints out the time history record 

> corresponding 

'to a fixation. It does this for the first and last "NOP" fixatio 


'the DISC Kyooera printer. Clean 
PRINT #9, PAGE$ 

PRINT #9, FONT$ 

PRINT #9, : PRINT #9, LOGS$(SB$, 
NOP « 1600 


>ns. Its set up 

all this out later. 

" FIRST PART OF FILE 

> ") : L = 3 
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FOR J - 1 TO NOP 

PRINT #9, USING "#####"; FIXPNTER(J) ; 

IF J MOD 24-0 THEN 

PRINT #9, : L - L + 1 

END IF 

IF L - 60 THEN 

PRINT #9, PAGE$: PRINT #9, : PRINT #9, 

L - 3 
END IF 
NEXT J 
L — 3 

PRINT #9, PAGE$ : PRINT *9, 

PRINT #9, LOGS$(SB$, " LAST PART OF FILE 

>. . . ") ; L - 5 

FOR J - NUMFIX% - NOP + 1 TO NUMFIX% 

PRINT *9, USING "#####"; FIXPNTER(J) ; 

IF J MOD 24-0 THEN 

PRINT #9, : L - L + 1 

END IF 

IF L - 60 THEN 

PRINT #9, PAGE$ : PRINT #9, : PRINT #9, 

L - 3 
END IF 
NEXT J 


END SUB 1 FIXPO INTER ' DUMMY PAGE $ ?r? ; PAGE ; EXIT ; 

SUB GETXX (FILENO%) 


1 ########## 

1 Parameters \ 

■Other input data \ 

'Input files \ 

'Other output data \ 

'Output files \ 

' Function \ 

' Comments \ 


'Read tha array XX from a record on the FILEMRG$ file. 

SHARED XX AS FIXCOMB 

INPUT #FILENO% , XX . TGTTYPEN , XX. TG TTY PEC, XX. FIXLNGTH , XX.PUPDIAM 

>, XX.TGTID, XX. DISTANCE, XX . FRAMENO , XX.TGTX, XX.TGTY, XX. FI 

>XX, XX.FIXY, XX. HEADING, XX . COUNTDOWN , XX. CONTFIX, XX. C 

>ROSSCHECK, XX. ZONE 


END SUB ' GETXX 1 DUMMY PAGE $ ?r? ; PAGE ; EXIT; 

SUB INIT 

•########## 

' Parameters \ 



' Other input data \ 

'Input filaa \ 

' Othar output data \ 

' Output f ilaa \ 

' Function \ 

' Common ta \ 

1 IMMMMMMMMMf 


SHARED BI1P() AS INTEOER 

SHARED BI2P() AS INTEGER 

SHARED BOP () AS INTEGER 

SHARED FILEACPS, FILEDAT$ , FILEDUM$ , 

SHARED FILEACP%, FILEDAT% , FILEDUM% , 


' Buf feredlnput 1 
' Buf feredlnput 2 
• Buf f eredOutput 
FILEDX2$ , FILEIDX$ , FILEMRG$ 

>, FILESCN$ 

FI LEDX2 % , FILEIDX%, FILEMRG% 
>, FIIiESCN% 


SHARED IAID AS INTEGER 

SHARED NUMINTRACK, NUMOUTTRACK AS INTEGER 

SHARED N4SS, N5SS , N6SS , N7SS , N8SS, N9SS AS INTEGER 

SHARED T4SS , T588 , T6SS , T7SS , T8SS , T9SS, PISS, P2SS, P3SS AS SI 

>NGLE 


SHARED SUMFIXLENGTH , SUMINTRACK, SUMOUTTRACK AS LONG 
SHARED XX AS FIXCOHB 
SB$ - " (INIT " 

' SIZE , FIRST , LAST , TRIG , NREC , NEOF, PI 
I « nacanbuf: BI1P(1) * I: BI1P(2) » 0: BI1P(3) * 1: BI1P<4) « .2 

> * I 


BI1P (5) - .7 * I: BI1P (6) * 0: BI1P(7) = 1 
'FOR L ■ 1 TO 7: print BI1P(L) : NEXT L 

I - nfixbuf : BI2P(1) - I: BI2P(2) - 0: BI2P(3) = 1: BI2P(4) * .2 

>* I 

BI2P (5) » .7 * I: BI2P ( 6) - 0: BI2P(7) - 1 

I - nfixbuf: BOP(l) « I: BOP(2) - 1: BOP<3) = 1: BOP{4) = .9 * I 
BOP (5) ■ .8 * I: BOP (6) * 0: BOP (7) » 1 
NUMFIX% - 0: NUMSCAN% » 0 

SUMFIXLENGTH ■ 0: SUMINTRACK * 0: SUMOUTTRACK = 0 
NUMINTRACK - 0: NUMOUTTRACK * 0 

N4SS - 0: N58S - 0: N6SS « 0: N7SS * 0: N8SS = 0: N9SS = 0 
T4SS - Of: T5SS -0!: T6SS - 0!: T7SS =0!: T8SS =0!: T9SS ■ 0! 


' INPUT " ENTER OCULOMETER FILE NAME " , BILENAME$ 

' FILENAME$ “ COMMAND$ 

LINE INPUT #12, FILENAMES L 

IF FILENAMES - "" THEN PRINT : PRINT : PRINT : STOP 
FILENAME 1$ - RIGHTS <UCASE$ (FILENAMES) , 8) 

SELECT CASE MID$ (FILENAMElS , 5, 1) 

CASE "M" 

IAID “ 1 
CASE "D" 

IAID • 2 
CASE "G" 

IAID - 3 
CASE "S" 

IAID - 4 
CASE ELSE 
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IAID - 9 


END SELECT 

IF IAID - 9 THEN PRINT LOG? (SB?, "CASE FROM FILENAME MUST BE MN,D 

>C,OR or SL"): PRINT : STOP 

IAID1 - VAL(MID$ <FILENAME1$, 7, 1)) 

IF IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOG$(SB$, "CASE FROM FILE 

>NAME MUST BE 170 OR 210") : PRINT : STOP 

IAID - IAID * 10 + IAID1: PRINT IAID 
PR$ - "PRINTER. FLE" 

OPEN PR$ FOR OUTPUT AS #9 

FILEACP? ■ FILENAME$ + " .ACP" : FILEACP% « 3 'append extension 

FILEDAT? ■ FILENAME? + " . DAT" : FILEDAT% “ 2 ' append extension 

FILEDUM? - FILENAME? + ".DUM": FI LEDUM % - 7 

FILEDX2? - FILENAME? + " . DX2 " : FILEDX2% » 5 

FILEIDX? - FILENAME? + " . IDX" : FILEIDX% - 4 

FILEMRG? « FILENAME? + " . MRG" : FILEMR6% - 6 

FILEOUT? - FILENAME? + ".OUT" 

FILESCN? ■ FILENAME? + ".SCN": FILESCN% = 1 
FILEQK? - FILENAME1? + "QCK" : FILEQK% = 8 
OPEN FILEQK? FOR OUTPUT AS FILEQK% 

• COMMENT: FILE NAME SHOULD LOOK LIKE 

• " C : \FASAFILE\CRONE\CC10SLCE " 

• COMMENT: FILE NAME SHOULD LOOK LIKE 

' "C : \FASAFILE \CRONE \ CC 1 0 SLCE " 


OPEN FILESCN? FOR BINARY AS #1 ' oculometer scan file 

NUMSCAN% - LOF(l) / 2 'can the file be found 

IF NUMSCAN% - 0 THEN 

PRINT LOG? (SB?, FILESCN?); " FILE NOT POUND" ' fix this test 
EXIT SUB 

ELSE : PRINT LOG? (SB?, "NUMBER OF 4 SECOND SCANS IS ") ; NUMSCAN% 
END IF 

I ^ 

OPEN FILEDAT? FOR BINARY AS #2 'oculometer .dat file 
NUMFIX% ■ LOF(2) / 8 'can the file be found 

IF NUMFIX% - 0 THEN 

PRINT LOG? (SB?, FILEDAT?); "FILE NOT POUND" ' fix this test 
EXIT SUB 

ELSE : PRINT LOG? (SB?, "NUMBER OF FIXATIONS IS "); NUMFIX% 

END IF 


OPEN FILEIDX? FOR INPUT AS #4 


END SUB ' INIT ' DUMMY PAGE? ?r? ; PAGE; EXIT; 

SUB PRNDAT (STRT&, NOR%) 


■########## 

' Parameters \ 

1 Other input data \ 
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' Input filaa \ 

1 Other output data \ 

' Output filaa \ 

' Funotion \ 

’ Comment a \ 

1 lllllllff | 


'INPUT " ENTER OCULOMETER FILE NAME ", FILENAME$ 

'IF FILENAME$ - "" THEN PRINT : PRINT : PRINT : STOP 
FILENAME$ - "C:\FASAFILE\CR0NE\CC1OSLCE" 

FILEDAT9 - FILENAME$ + " . DAT" ' appand axtanaion 

OPEN FILEDAT$ FOR BINARY AS #2 'oculomatar .dat fila 
NUMFIX% ■ LOF(2) / 8 'can tha fila ba found 

IF NUMFIX% - 0 THEN 

PRINT LOO$ (SB$ , FILEDAT$) ; "FILE NOT FOUND" ’ fix this taat 
EXIT SUB 

ELSE : PRINT LOO$(SB$, "NUMBER OF FIXATIONS IS ") ; NUMFIX% 

END IF 

SEEK 2, (STRTt - 1) *8+1 
FOR I « 1 TO NOR% 

IF NOT EOF (2) THEN 

GET 2, , XI % : GET 2, , X2%: GET 2, , X3%: GET 2, , X4% 

PRINT USING "####"; Xl%; X2%; X3%; X4% 

END IF 
NEXT I 
CLOSE 2 


END SUB ' PRNDAT ' DUMMY PAGE $ ?r? ; PAGE ; EXIT; 

SUB PUTXX (FILENO%) 


1 ########## 

' Parana tara \ 

'Othar input data \ 

'Input filaa \ 

' Othar output data \ 

'Output filaa \ 

' Funotion \ 

' Common ts . . . \ 

* ########## 


'Writa tha array XX to a record on the FILEMRG$ file. 

SHARED XX AS FIXCOMB r ’ 

write #fileno%, XX.TGTTYPEN, xx.tgttypec, xx.fixlngth, xx.pupdiam 

>, XX.TGTID, XX. DISTANCE, XX . FRAMENO, XX.TGTX, XX.TGTY, XX. FI 

>XX, XX.FIXY, XX. HEADING, XX . COUNTDOWN , XX.CONTFIX, XX. C 

>ROSSCHECK , XX. ZONE 


END SUB ' PUTXX ' DUMMY PAGE $ ?r? ; PAGE; EXIT; 
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PROGRAM SEQNCE1 

DEFINT I-N 

DECLARE SUB FINDTGTPL (L%) 

DECLARE SUB INIT (FILENAME}, FILENAME1}) 

DECLARE SUB FILBLNK1 () 

DECLARE FUNCTION LOG} (SB$, A$) 

DECLARE SUB PRNZONE (ZONEt()) 

DECLARE SUB READSEQ 0 

CONST NOCCS * 4, lgl « 5, lg2 - (NOCCS + 1) * lgl 
'Max ordar CCS 'a, # of accumulatora aach- N, t, t*t, D, D*D 

CONST NOZ - 4, NOZP - 10, NOTGT - 6, NOTP - 16’# of rows in zona 

>pair array, 

' # of targat paira . . . 

DIM ISEQNUM, IRCNOA, IRCNOEND, ISWTCHNO, ITYPENOA, ITYPENOB, TYPE 

>A$ , TYPEB$ 

DIM IDAS, IDB$ , ISEQT, ZONEA$ , ZONEB$ , AIDONA}, AIDONB$ , SPEEDA$ , 

> SPEEDS} 

DIM IOVERLAPT, DIST, HEADA} , HEADB$ , ICNTA, ICNTB 
DIM AAAA} 

DIM IAID AS INTEGER 
DIM BLANK1 (lg2) 

DIM ZNE} (NOZP) , TGTS} (NOTP) , SLOT} (6) 

DIM ZONE (NOZP, lg2) , TGTS (NOTP, lg2) , SLOT (6, 15) 

DIM ZONED (NOZP, lg2) , TGTSD (NOTP , lg2) 

DATA "1/1" , "1/2" , "1/3" , "2/3" , "2/2" , "1/4" , "3/3" , "OTH" , "BTBK" , "ALL" 
FOR I ■ 1 TO NOZP: READ ZNE} (I) : NEXT I 
DATA 1,2, 3, 6, 2, 5, 4, 8, 3, 4, 7, 8, 6, 8, 8, 8 

For. i » 1 TO NOZ: FOR J * 1 TO NOZ: READ I2ZN(I, J) : NEXT J: NEXT 

> I 

DATA "ALL" , "AC/AC" , "AC/OWNTG" , "AC/OTHTAG" , "TAG/TAG" , "AC/OM" , "TAG/ 

>OM" , "AC/FNL" 

DATA "TAG/FNL" , "AC/AID" , "TAG/AID" , "AID/AID" , "AC/OTH" , "TAG/OTH" , "O 

>TH" , "NOTA" 

FOR I — 1 TO NOTP: READ TGTS}(I) : NEXT I 
DIM ITGTN (NOTGT, NOTGT) 

DATA2, 4, 10, 6, 8, 13, 4, 5, 11, 7, 9, 14, 10, 11, 12 ,15, 15, 15, 6, 7, 15, 15, 15, 15 
DATA 8,9,15,15,15,15,13,14,15,15,15,15 

FOR I - 1 TO NOTGT: FOR J » 1 TO NOTGT: READ ITGTN (I, J) : NEXT J: 

> NEXT I 

DATA "SL/XX" , " AC/OWNSL" , "AC/OTHSL" , "TAG/OWNSL" , " TAG/OTHSL" , "SL/OT 

>H 

FOR I - 1 TO 6: READ SLOT} (I) : NEXT I 
** FILE numbers ** 

#1 FILE INDEX #2 * 3 

#4 #5 #« 

#7 CCS #8 PR1 * 9 

SPSINV! -1/30: SB} - " (CNTSEQ_1 " 

AAAA} - " Finiahad-End of liat file" 

HEADING} - " SEQ# STRT-FNSH TOG TYPE TYPE TGTID TIM 

>E ZONE AID SPD LPOV DSTAB" 

INPUT " Enter full f ila daacriptor for Index file " , INDEX} 

OPEN INDEX} FOR INPUT AS #1 
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nof " 0 

DO WHILE NOT EOr(l) 

INPUT *1, FILENAME $ 

IF LEN( FILENAME $) <- 4 THEN EXIT DO 
FILENAMElS - RIGHTS (UCASE$ (FILENAME?) , 8) 

CALL INIT (FILENAMES , FILENAME1$) 

FLSTRNG$ - FLSTRNG$ + FILENAME1$ 

OPEN FILENAMES + ".CCS" FOR INPUT AS *7 
OPEN FILENAMES + " . PR1" FOR OUTPUT AS *8 

PRINT #8 , LEFTS (DATES, 5) + " " + LEFTS (TIME$ , 5); SPC(24); 

>FILENAME1$ 

PRINT LEFTS (DATES, 5) + " " + LEFTS (TIMES, 5); SPC(24); FILE 

>NAME1$ 

PRINT LOOS(SBS, " Start”); EOF(l) 
nof “ nof + 1 
DO 

CALL READSEQ 
CALL FILBLNK1 

IZ - VAL(ZONEA$) : JZ - VAL(ZONEB$) 

IF IZ >- 1 AND IZ O NOCCS AND JZ >- 1 AND JZ <= NOCCS THEN 
L ■ I2ZN (IZ , JZ) 

ELSE 

L «■ NOZP - 1 'Bit Bucket 

PRINT " ZBB"; IZ; JZ; 

END IF 

'Accumulate BLANK array in ZONE and ZONED 

FORK - 1 TO lg2: ZONE(L, K) - ZONE(L, K) -I- BLANK1 (K) : NEXT K 
FOR K - 1 TO lg2 : ZONE (NOZP, K) * ZONE (NOZP, K) + BLANK 1 (K) : 

> NEXT K 

FOR K - 1 TO lg2: ZONED (L, K) “ ZONED (L, K) -I- BLANK1 (K) : NEX 

>T K 

FOR K « 1 TO lg2: ZONED (NOZP, K) - ZONED (NOZP, K) + BLANK1 (K 

» : NEXT K 

IF EOF (7) THEN EXIT DO 
LOOP 

CALL PRNZONE ( ZONE ( ) ) 

CLOSE 7, 8 

PRINT LOG$(SB$, " FINISHED SEARCH"); EOF(l) 

•CALL FIN 'Close FILES 

LOOP 

OPEN " ZNETOT" + LTRIMS (STR$ (IAID) ) + ".PR1" FOR OUTPUT AS #8 
PRINT #8, LEFTS (DATES, 5) + " " + LEFTS (TIME$, 5); SPC(IO); "Numb 

>er of Files« " ; nof 

PRINT #8, FLSTRNOS 
PRINT #8 , 

CALL PRNZONE (ZONED () ) 

CLOSE 

PRINT AAAA$ 


END ' MAIN PROGRAM 
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SUB FILBLNK1 

’########## 

' Purpose \ 

' \ 

' \ 

• Paramatara \ 

'Othar input data \ 

'Input files \ 

•Output filaa \ 

' Othar output data \ 

' \ 

'Function aalla \ 

' Subroutina cal la \ 

' Commanta \ 

» ########## 


SHARED IAID AS INTEGER 

SHARED ISEQNUM, IRCNOA, IRCNOEND, ISWTCHNO, ITYPENOA, ITYPENOB, T 

>YPEA$ , TYPEB$ 

SHARED IDA$, IDB$, ISEQT, ZONEA$ , ZONEB$ , AIDONA$, AIDONB$ , SPEED 

>A$ , SPEEDB$ 

SHARED IOVERLAPT, DIST, HEADA$ , HEADB$ , ICNTA, ICNTB 
SHARED BLANK1 () 

SB$ - " (FILBLNK1 " 

FOR I - 1 TO lg2: BLANKl(I) -0»: NEXT I 

I - ISWTCHNO: IF I > NOCCS THEN I « NOCCS 'Choose # of Scans 

IF I < 1 THEN PRINT LOG$(SB$, "ILLEGAL CCS ORDER < 1 ") , I: STOP 
J - lgl * (I - 1) + 1 

BLANKl(J) - 1: BLANK1 ( J + 1) - ISEQT: BLANK1 ( J + 2) = BLANK1 ( J + 

>1) * BLANK 1 ( J + 1) 

BLANK1 ( J + 3) - DIST: BLANK1 ( J + 4) ■ DIST * DIST 
J - (NOCCS * lgl) + 1 

BLANK 1 ( J) - 1: BLANK 1 ( J + 1) « ISEQT: BLANK1 ( J + 2) = BLANK 1 ( J + 

>1) * BLANK 1 ( J + 1) 

BLANK 1 ( J + 3) - DIST: BLANK1 ( J + 4) - DIST * DIST 


END SUB ' FILBLNK1 

SUB FINDTGTPL (L) 

I ########## 

' Purpose 


' Parameters 

'Other input data. 

'Input files 

'Output files 

'Other output data 

I 

'Function calls... 

'Subroutine calls. 

' Comments 
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\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 



SSS SSS.'SS. — — . «— ». 

SHARED IDA$ , XDB$, ISEQT, ZONEA$, ZONEB$ , AIDONA$ ^AI DONBAS PEED 

SHARED IOVERLAPT, DIST, HEADA$ , HEADB$ , ICNTA, ICNTB 
SHARED ITGTN() 

J1 - 7: J2 - 7 

SELECT CASE ITYPENOA 1JUJ 

CASE 10 

J1 " * 'TAG 

CASE 15 

CASE 20, 28, 32, 33, 34, 35, 36, 38, 39 SLGR 

J1 “ ^ 'OM 

CASE 50 

J1 “ * ' FNL 

CASE 51 

52, 53, 55, 56 '°™' OR °“ 

CASE ELSE , " 00 “ “ “ m 

J1 - 7 
END SELECT 

SELECT CASE ITYPENOB , AC 

CASE 10 

J2 m 1 ' TAG 

CASE 15 

CASE 20, 28, 32, 33, 34, 35, 36, 38, 39 ’SLGR 

J2 " ^ 'OM 

CASE 50 

J2 “ ? ' FNL 

CASE 51 

Ssi 52, 33, 55, 56 '°™' “»•“« OR °“ 

132 " ® 'SHOULD BE EMPTY 

CASE ELSE 

J2 - 7 

ITYPENOA ■ 55 AND LEFT$ <IDA$ , 2) - "OM" THEN J1 - 4 
" £ ! « ££ ITYPENOB - 55 AND LEFTS (IDB$ , 2, - "0M» THEN J2 - 4 
IF J1 - 7 OR J2 - 7 THEH 
L « i6 

PRINT ISEQNUM; TYPEA$ ; TYPEB$ 

ELSE 

L - ITGTN ( J1 , J2) 

END IF 

IF L - 4 AND IDA$ - IDB$ THEH L - 3 




END SUB 


• FINDTGTPL 
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SUB INIT (FILENAMES, FILENAME1S) 

1 PurooM \ Initialize parameters on both circular 

. \ Initialize sums to zero. Let user choose partio- 

, \ ular run for analysis. Determine aid type for 

. \ subsequent branching. Open FILESCN$, FILEDAT$ , 

, \ FILEACP$ and store their lengths. 

1 Parameters \ none 

•input files . dmta ! \ FILESCN$ , FILEDAT$ , FILEACP$ 

i^rou^rt'dat.::::::' m. 4 ^ .... ***££- ^ 

, \ and pointers and the branch variable IAID 

•Function calls \ LOO$ 

•Comnents \ I don't think I'm using this BOP stuff. 


SHARED IAID AS INTEGER 
SHARED ZONE<), TOTS ( ) , SLOT<) 
SHARED BLAN1C1 () 

SB$ - "(INIT " 

» 

I 

SELECT CASE MID$ (FILENAME1$ , 5, 1) 
CASE "M" 

IAID - 1 
CASE "D" 

IAID ■ 2 
CASE "G" 

IAID » 3 
CASE "S" 

IAID - 4 
CASE ELSE 

IAID - 9 


END SELECT 

IF IAID ■ 9 THEN PRINT LOG$(SB$, 


••CASE FROM FILENAME MUST BE MN,D 
>C,GR or SL") : PRINT : STOP 


IAID1 - VAL(MID$(FILENAME1$, 7, 1)) 

IF IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOG$(SB§, 

>NAME MUST BE 170 OR 210" 


"CASE FROM 
) : PRINT : 


FILE 

STOP 


IAID - IAID * 10 + IAIDl : PRINT IAID 

FOR J ■ 1 TO lg2 : FOR I ■ 1 TO NOZP: Z<WE(I, 


J) 


FOR J - 1 TO lg2: FOR I - 1 TO NOTP: TGTS(I, J) 


0: NEXT I: NEXT 

> J 

0: NEXT I: NEXT 
> J 


SELECT CASE IAID 
CASE 11, 12 
CASE 21, 22 
CASE 31, 32 


1 Manual 1 s 
•DICE 
• GRAPHIC 



CASE 41, 42 

FOR J - 1 TO 3: FOR I - 1 TO 6: SLOT<I, J) - 

CASE ELSE 

PRINT LOG$(SB$, "ILLEGAL AID ") , IAID: STOP 
END SELECT 


•SLOTS 

0: NEXT I: NEXT 
> J 


I 


END SUB • INIT 


SUB PRNZONE (ZONE()) 


1 Purposa \ 

\ 

\ 

Par area tars \ 

Othar Input data \ 

Input filas \ 

Output filas \ 

Othar output data \ 

\ 

Function aalls \ 

Subroutina calls \ 

Coomants \ 


m h 


SHARED ZNE$(), T0TS$(), SLOT$() 

Al$ 

A2$ 

A3$ 

A49 
A5$ 

A6$ 

Bl$ 


'TBAR'S 
’DEARS 


•N's 

'T's SECONDS 
'D INCHES 


#*.#" 

#.#" 

" ##«#«« ««««• #««« «### #«#»#«•• 

" ####.# «#«.« «#.» #«.# «###.#•• 

" ###•# ##.# #.# #.# ###.#» 

" ###### ###### ##### «#««# «#«##«» 

SPACE$ (14) + "Zona Pairs by ordar of cross check scan" 

B2$ - SPACE$ (10) + "Avaraga Duration" + SPACE$(7) + "Avaraga dis 

>tanca A/B" + SPACE$(9) + "# OF CCS" 

+ "Avaraga Duration" + SPACE$(12) + "Avaraga dis 

>tanca A/B" 

2 3 4 ALL 12 3 

3 4 ALL 12 3 


B2$ - SPACE$ (10) 


'B3$ - "Pairs 
B3$ - "Pairs 


1 

12 


PRINT #8, Bl$ : PRINT #8, B2$: PRINT #8, B3$ 
FOR L - 1 TO NOZP 

PRINT #8, USING "\ \" ; ZNE$ (L) ; 


4 

4 


ALL" 
ALL 1 


FOR I 
X ■ 0: 


• 1 TO lg2 STEP lgl 
IF ZONE (L, I) <> 0 THEN X ■ ZONE(L, I + 


PRINT #8, USING A2$; X; 
NEXT I 
PRINT #8, " 

FOR I ■ 1 TO lg2 STEP lgl 
X - 0: IF ZONE(L, I) <> 0 

PRINT #8, USING A2$; X; 


1) / ZONE (L, 
>1) / 30 


THEN X - ZONE (L, 1 + 3) 


/ ZONE (L, 
> 1 ) 
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NEXT I 
PRINT #8, 

NEXT L 
PRINT #8, 

'B4$ ■ SPACE$ (10) ♦ "Std Dav Duration” + SPACE$(7) + "Std Dav dis 

>tanca A/B" + SPACE$<9) + "Tima, Sac’s" 

" Pai f* 1 2 3 4 ALL 1 2 3 4 ALL" 

B4$ - SPACE$ (10) + "Std Dav Duration" + SPACE$(12) + "Std Dav dis 

B=S - 2 3 4 ALL .3 'T^T ^ 

PRINT #8, B4$ : PRINT #8, B5$ 

FOR L - 1 TO NOZP 

PRINT #8, USING "\ \"; ZNE$ (L) ; 

FORI “ 1 TO lg2 STEP lgl 'STD SEQUENCE TIME 

IF ZONE (L, I) > 1 THEN 

X - ZONE(L, I + 1) / ZONE (L, I) / 30 

Y- SQR(ZONE (L, I + 2) / 900 / (ZONE(L, I) - 1) - X * X) 

ELSE 

Y - 0 
END IF 

PRINT #8, USING A2$; Y; 

NEXT I 

PRINT #8, SPC(S); 

FOR I - 1 TO lg2 STEP lgl ' STD DISTANCE A/B 

IF ZONE (L, I) > 1 THEN 

X - ZONE (L, I + 3) / ZONE (L, I) 

Y - SQR ( ZONE (L , I + 4) / (ZONE(L, I) - 1) - X * X) 

ELSE 

Y - 0 
END IF 

PRINT #8, USING A2$; Y; 

NEXT I 
PRINT #8 , 

NEXT L 
PRINT #8, 

PRINT #8, 8PACE$ (14) + "# OF CCS" SPACE$(29) + "Tima Sac's" 

#8, " 1 2 3 4 ALL 1 2 

> 3 4 ALL" 

FOR L ■ 1 TO NOZP 

PRINT #8, USING "\ \" ; ZNE$ (L) ; 

PRINT #8, USING A3$ ; ZONE(L, 1); ZONE(L, 6); ZONE(L, 11); ZO 

>NE(L, 16); ZONE (L, 21); 

PRINT #8 , " " ; 

PRINT #8, USING A6$; ZONE (L, 2) / 30; ZONE(L, 7) / 30; ZONE ( 
>L / 12) / 30; ZONE (L, 17) / 30; ZONE(L, 22) / 30; 

PRINT #8, 

NEXT L 


END SUB 


PRNZONE 


SUB READSEQ 
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' Purpose 


' Paranwtara 

1 Othar input data. 
'Input filaa 

'Output filaa 

'Othar output data 

» 

' Function aalls. • • 
' Subroutina calla. 
• Comnants 


\ 

\ 

\ 

\ 

\ 

A 

A 

A 

\ 

A 

A 

A 


“ ISEQNUM , 1 IBCNOX , IBCHOB®, ISHTC1M0. 

SHARED IDA$, IDB$ , ISEQT, ZONEA$ , ZONEB$ , AIDONA$ ^AIDONB$ ^PEED 

DIST, HEADA$, HEADB$ , ICNTA, ICNTB 


SHARED IOVERLAPT , 

LINE INPUT #7, A$ 
ISEQNUM - VAL(MID$(A$, 


3, 4)) 


IRCNOA 
IRCNOEND 
ISWTCHNO 
ITYPENOA 
ITYPENOB 
TYPEA$ - 
TYPEB$ * 

IDA$ - MID$(A$, 
IDB$ - MID$ (A$ , 


VAL(MID$(A$, 9, 4)) 

- VAL (MID$ ( A$ , 14, 4)) 

- VAL (MID$ (A$ , 20, 2)) 

- VAL (MID$ (A$ , 24, 2)) 

- VAL(MID$ (A$ , 27, 2)) 
MID$(A$, 31, 4) 
MID$(A$, 36, 4) 

42, 3) 

46, 3) 


I8EQT - VAL (MID$ ( A$ , 51, 4)) 
ZONEA$ - MID$(A$, 57, 1) 

IP (ITYPENOA ■ 20 OR ITYPENOA 
ZONEB$ - MID$(A$, 59, 1) 

IF (ITYPENOB - 20 OR ITYPENOB 
AIDONA9 ■ MID$(A$, 62, 1) 
AID0NB9 - MID$(A$, 64, 1) 

3 PE EDA $ * MID$ ( A$ , 67 , 1 ) 
SPEEDB$ - MID$(A$, 69, 1) 
IOVERLAPT ■ VAL (MID$ ( A$ , 72 , 
DIST - VAL (MID$ (A$ , 78, 4)) 
HEADA$ - MID$(A$, 84, 3) 
HEADB$ - MID$(A$, 88, 3) 


28) THEN ZONEA$ * ”1" 
28) THEN ZONEB$ * "1" 


4)) 


ICNTA 
ICNTB 
XXX1$ 
XXX2$ 
XXX3$ 
XXX4$ 
XXX 5$ 


VAL (MID$ ( A$ , 93, 4)) 

- VAL (MID$ (A$ , 98, 4)) 

, « #««« #### #### ## * # 

. n \ \\ \ \\\\ ####" 

« <t ( t ! t" 

. .. , ! «#»« ##.#" 

. „ \ \ \ \ #### ####" 

PRINT #8, USING XXXl$; ISEQNUM; 


IRCNOA; IRCNOEND; ISWTCHNO; 
> ITYPENOA; ITYPENOB; 
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PRINT *8 , USING XXX2$; TYPEA$ ; TYPEB$ ; IDA$ ; IDB$; ISEQT; 
PRINT *8, USING XXX3$; ZONEA$ ; ZONEB$; AIDONA$ ; AIDONB$; 
PRINT #8, U8ING XXX4$ ; SPEEDA$; SPEEOB$ ; IOVERLAPT; DIST; 
PRINT *8, USING XXX5$; HEADA$ ; HEADB$ ; ICNTA; ICNTB 


END SUB 


'READSEQ 



PROGRAM SEQNCE2 

'9/29/92 This program was modified . ths old program is on fils SE 

>Q20LD.bas 

i i targst typs and 4 targst pairs wsrs addsd. 

DEFINT I-H 

DECLARE SUB FINDTGTPL (L%) 

DECLARE SUB INIT (FILENAME$ , FILENAME1$) 

DECLARE SUB FILBLNK1 () 

DECLARE FUNCTION LOO$ (SB$, A$) 

DECLARE SUB PRNTOTS (ZONE ! () ) 

DECLARE SUB READSEQ () 

CONST NOCCS ■ 4, lgl ■ 5, lg2 ■ (NOCCS + 1) * lgl 

'Max ordsr CCS's, # of aoaumulators saoh- N, t, t*t, D, D*D 

CONST NOZ - 4, NOZP - 10, NOTOT - 7, NOTP - 20'# of rows in zons 

>pair array, 

' # of targst pairs. . . 

DIM ISEQNUM, IRCNOA, IRCNOEND , ISWTCHNO, ITYPENOA, ITYPENOB , TYPE 

>A$ , TYPEB$ 

DIM IDA$ , IDB$, ISEQT, ZONEA$ , ZONEB$ , AIDONA$, AIDONB$ , SPEEDA$, 

> SPEEDB$ 

DIM IOVERLAPT , DIST, HEADA$ , HEADB$ , ICNTA, ICNTB 
DIM AAAA$ 

DIM IAID AS INTEGER 
DIM BLANK1 (lg2) 

DIM ZNE$ (NOZP) , TGTS$ (NOTP) , SLOT$(6) 

DIM ZONE (NOZP, lg2) , TOTS (NOTP, lg2) , SLOT(6, 15) 

DIM ZONED (NOZP, lg2) , TGTSD (NOTP , lg2) 

DATA "1/1" , "1/2" , "1/3" , "2/3" , "2/2" , "1/4" , "3/3" , "OTH" , "BTBK" , "ALL" 
FOR I - 1 TO NOZP: READ ZNE$ (I) : NEXT I 
DATA 1,2, 3, 6, 2, 5, 4, 8, 3, 4, 7, 8, 6, 8, 8, 8 

FOR I - 1 TO NOZ: FOR J = 1 TO NOZ: READ I2ZN(I, J) : NEXT J: NEXT 

> I 

DATA "ALL" , "AC/AC" , "AC/OWNTG" , "AC/OTHTAG" , "TAG/TAG" , "AC/OM" , "TAG/ 

>OM" , "AC/FNL" 

DATA "TAG/FNL" , "AC/AID" , "TAG/ AID" , "AID/AID" , "AC/OTH" , "TAG/OTH" , "O 

>TH" , " &/AC" 

DATA " 4/TAG" , " 4 /AID" , " 4/OTH" , "NOTA" 

FOR I ■ 1 TO NOTP: READ TGTS$(I) : NEXT I 
DIM ITGTN (NOTGT, NOTGT) 

DATA 2,4,10,6,8,13,16,4,5,11,7,9,14,17,10,11,12,15,15,15,18,6,7,1 

>5,15,15,15,19 

DATA 8,9,15,15,15,15,19,13,14,15,15,15,15,19,16,17,18,19,19,19,18 

FOR I ■ 1 TO NOTGT: FOR J * 1 TO NOTGT: READ ITGTN (I, J) : NEXT J: 

> NEXT I 

DATA "SL/XX" , "AC/OWNSL" , "AC/OTHSL" , "TAG/OWNSL" , "TAG/OTHSL" , "SL/OT 

* V »T H 


>H" 


FOR I - 1 TO 6: READ SLOT$(I) : NEXT I 
** FILE NUMBERS ** 

#1 FILE INDEX #2 

#4 #5 

#7 CCS #8 PR2 


SPSINV! =1/30: SB$ = " (CNTSEQ_1 


#3 

#6 

#9 
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MAA$ - « Finished-End of list file" 

HEADING? ■ " SEQ# 8TRT-FNSH TOO TYPE TYPE TGTID TIM 

>E ZONE AID SPD LPOV DSTAB" 

INPUT " Enter full f ile descriptor for Index file " , INDEX$ 

OPEN INDEX$ FOR INPUT AS #1 
nof ■ 0 

DO WHILE NOT EOF(l) 

INPUT *1, FILENAME? 

IF LEN (FILENAME?) <- 4 THEN EXIT DO 
FILENAME1? - RIGHT? (UCASE? (FILENAME?) , 8) 

CALL INIT (FILENAME? , FILENAMEl?) 

FLSTRNG? - FLSTRNG? + FILENAMEl? 

OPEN FILENAME? + ".CCS" FOR INPUT AS #7 
OPEN FILENAME? + " . PR2" FOR OUTPUT AS #8 

PRINT #8, LEFT? (DATE?, 5) + " " + LEFT? (TIME?, 5) ; SPC(24) ; 

>FILENAME1? 

PRINT LEFT? (DATE? , 5) + " " + LEFT? (TIME? , 5) ; SPC(24) ; FILE 

>NAME1? 


PRINT LOG? (SB?, " Start"); EOF(l) 

nof * nof + 1 


DO 

CALL READSEQ 

CALL FILBLNK1 ’ Blankl (1 X Lg2) contains increment in 


' appropriate positions 

CALL FINDTGTPL (L) ' L ■ ordinal of target pair 


• Accumulate BLANK array in TGTS and TGTSD 
FORK • 1 TO lg2: TGTS (L, K) = TGTS (L, K) 
FORK - 1 TO lg2: TGTS(1, K) - TGTS(1, K) 
FOR K - 1 TO lg2: TGTSD (L, K) - TGTSD (L, 

FOR K - 1 TO lg2 : TGTSD ( 1 , K) - TGTSD (1, 


+ BLANK1 (K) : NEXT K 
+ BLANK 1 (K) : NEXT K 
K) + BLANK1 (K) : NEX 

>T K 

K) -I- BLANK1 (K) : NEX 
>T K 


IF EOF (7) THEN EXIT DO 
LOOP 

CALL PRNTGT8 ( TGTS ( ) ) 

CLOSE 7, 8 

PRINT LOG? (SB?, " FINISHED SEARCH"); EOF(l) 
■CALL FIN 


'Close FILES 


OPEN "c:\fasa\ZNETOT" + LTRIM? (STR? (IAID) ) + " . PR2 " FOR OUTPUT AS 

> #8 

PRINT 88, LEFT? (DATE? , 5) + " " + LEFT? (TIME? , 5) ; SPC(IO) , "Numb 

>mr of Files* "; nof, FLSTRNG? 


CALL PRNTGTS ( TGTSD ( ) ) 
CLOSE 

PRINT AAAA? 


END ' MAIN PROGRAM 

SUB FILBLNK1 


I 



'Purpose \ Fill Blankl (LG2) array. It contains LG 

>1 X 

' \ (ACCS + 1) buckets. LG1 is tha nuinbar of ac- 

' \ cumulators: 1, t, t*t, d d*d. Ona sat for aach 

1 Paramatars \ Ordar of CCS and ona sat for total 

'Othar input data \ ISWTCHNO-- ordar of CCS . 

'Input filas \ 

'Output filas \ 

' Othar output data \ 

' \ 

' Function calls \ 

' Subroutina calls \ 

' Comments \ 


SHARED IAID AS INTEGER 

SHARED ISEQNUM, IRCNOA, IRCNOEND, ISWTCHNO, ITYPENOA, I TYPE NOB, T 

>YPEA$, TYPEB$ 

SHARED IDA$, IDB$ , ISEQT, ZONEA$ , ZONEB$ , AIDONA$ , AIDONB$ , SPEED 

>A$ , SPEEDB$ 

SHARED IOVERLAPT, DIST, HEADA$ , HEADB$ , ICNTA, ICNTB 
SHARED BLANK1 ( ) 

SB$ - •• (FILBLNK1 " 

FOR I - 1 TO lg2: BLANK 1 ( I ) « 0!: NEXT I 

I - ISWTCHNO: IF I > NOCCS THEN I - NOCCS 'Choose # of Scans 

IF I < 1 THEN PRINT LOG$(SB$, "ILLEGAL CCS ORDER < 1 "), I: STOP 
J - Igl * (I - 1) + 1 

BLANK 1 ( J) « 1: BLANK 1 ( J + 1) « ISEQT: BLANK1 ( J + 2) - BLANK 1 ( J + 

>1) * BLANK 1 ( J + 1) 

BLANK1 ( J + 3) - DIST: BLANK1 ( J + 4) - DIST * DIST 
J - (NOCCS * lgl) + 1 

BLANKl(J) « 1: BLANK 1 ( J + 1) - ISEQT: BLANK1 ( J + 2) * BLANK1 ( J + 

>1) * BLANK1 ( J + 1) 

BLANK 1 ( J + 3) - DIST: BLANK1 ( J + 4) « DIST * DIST 


END SUB ' FILBLNK1 

SUB FINDTGTPL (L) 


' Purpose \ FIND L THE ORDINAL OF THE APPROPRIATE P 

>AIR 

1 \ 

' \ 

' Parameters \ 

' Othar input data \ 

' Input f ilas \ 

'Output filas \ 

' Othar output data \ 

' \ 

'Function calls \ 

' Subroutina calls \ 

' Comments \ 
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I 


SHARED IAID AS INTEGER 

SHARED I8EQNUM, IRCNOA, IRCNOEND , ISWTCHNO, ITYPENOA, ITYPENOB, T 

>YPEA$ , TYPEB$ 

SHARED IDA$, IDB$, ISEQT, ZONEA$, ZONEB$, AIDONA$, AIDONB$ , SPEED 

>A$ , SPEEDB$ 

SHARED IOVERLAPT , DIST, HEADA$, HEADB$ , ICNTA, ICNTB 
SHARED ITGTN () 

J1 - 7: J2 - 7 
SELECT CASE ITYPENOA 

CASE 10 ’ AC 

J1 - 1 

•TAG 


CASE 15 
J1 - 2 

CASE 20, 32, 33, 34, 35, 36, 16, 17 


'Slot, graph, tag "on 1 


•Addad otm 16 and 17 on 10/1/92 to maka pairs containing tag sho 

>w tha 

i dif faranaa whathar tha count is activatad "Dica on" or not. If o 

>n, tha 

' tag will ba countad as an aid 
J1 - 3 

CASE 28, 38, 39 
J1 - 7 
CASE 50 
J1 - 4 
CASE 51 
J1 - 5 

CASE 52, 53, 55, 56 
J1 - 6 
CASE ELSE 
J1 - 8 
END SELECT 
SELECT CASE ITYPENOB 
CASE 10 
J2 - 1 
CASE 15 

j2 ■ 2 

CASE 20, 32, 33, 34, 35, 36, 16, 17 


• SLAC , GRAC , SPAC 
' OM 
' FNL 

'OTH, LINE, LIST OR OM 
'SHOULD BE EMPTY 

'AC 

'TAG 

'Slot, graph, tag "on" 


•Addad casa 16 and 17 on 10/1/92 to maka pairs containing tag sho 

>w tha 

•dif faranaa whathar tha count is activatad "Dice on" or not. If o 

>n, tha 


•SLAC, GRAC, SPAC 
•OM 
'FNL 


•tag will 

ba 

J2 » 

3 

CASE 

28 

J2 - 

7 

CASE 

50 

J2 - 

4 

CASE 

51 

J2 - 

5 

CASE 

52 


•OTH, LINE, LIST OR OM 



•SHOULD BE EMPTY 


J2 ■» 6 
CASE ELSE 
J2 - 8 
END SELECT 

IF J1 ■ 6 AND ITYPENOA - 55 AND LEFT$(IDA$, 2) « "OM" THEN J1 - 4 
IF J2 - 6 AND ITYPENOB - 55 AND LEFT$ ( IDB$ , 2) - "OM" THEN J2 ■ 4 
IF J1 ■ 8 OR J2 - 8 THEN 
L - 20 

PRINT ISEQNUM; TYPEA$ ; TYPEB$ 

ELSE 

L ■ ITOTN ( J1 , J2) 

END IF 

IF L - 4 AND IDA$ - IDB$ THEN L - 3 


END 8UB ' FINDTOTPL 

SUB IN IT (FILENAMES, FILENAMES) 


1 IMMMMMMMMMf 

' Purpose \ Initialize paramatars on both circular 

>buffers 

' \ Initialize sums to zero. Let user choose partic- 

• \ ular run for analysis. Determine aid type for 

' \ subsequent branching. Open FILESCN$, FILEDAT$, 

• \ FILEACP$ and store their lengths. 

' Parameters \ none 

' Other input data \ 

» Input files \ FILESCN$, FILEDAT$ , FILEACP$ 

'Output files \ 

■Other output data \ File names £ unit #'s. Initialized vari 

>ables, sums 

1 \ and pointers and the branch variable IAID 

' Function calls \ LOG$ 

• Subroutine calls \ none 

■Comments \ I don't think I'm using this BOP stuff. 

1 ########## 


SHARED IAID AS INTEGER 
SHARED ZONE(), TOTS ( ) , SLOT() 
SHARED BLANK1 () 

SB$ - "(INIT " 

f , , , , 

I 

SELECT CASE MID$ ( FILENAME 1$ , 5, 1) 
CASE "M" 

IAID - 1 
CASE "D" 

IAID - 2 
CASE "G" 

IAID - 3 
CASE "S" 

IAID - 4 
CASE ELSE 
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IAID - 9 


END SELECT 

IP IAID « 9 THEN PRINT LOG$(SB$, "CASE FROM FILENAME MUST BE MN,D 

>C,OR or SL") : PRINT : STOP 

IAID1 - VAL (MID$ ( FILENAME!. $ , 7, 1)) 

IF IAID1 <> 1 AND IAID1 <> 2 THEN PRINT LOG$(SB$, "CASE FROM FILE 

>NAME MUST BE 170 OR 210") : PRINT : STOP 

IAID » IAID * 10 + IAID1 : PRINT IAID 

FOR J » 1 TO lg2: FOR I - 1 TO NOZP: ZONE (I, J) ■ 0: NEXT I: NEXT 

> J 

FOR J ■ 1 TO lg2 : FOR I - 1 TO NOTP: TGTS(I, J) « 0: NEXT I: NEXT 

> J 


SELECT CASE IAID 
CASE 11, 12 
CASE 21, 22 
CASE 31, 32 
CASE 41, 42 

FOR J - 1 TO 3: FOR I ■ 1 TO 6: SLOT (I, J) 


' Manual 1 a 
'DICE 
'GRAPHIC 
'SLOTS 

0: NEXT I: NEXT 
> J 


CASE ELSE 

PRINT LOG$ (SB$ , "ILLEGAL AID "), IAID: STOP 
END SELECT 


I 


END SUB ' INIT 


SUB PRNTGTS (TRGTS()) 


1 iHMMMMMMM)# 

' Purpoaa \ 

' \ 

' \ 

' Parana tara \ 

' Othar Input data \ 

•Input filaa \ 

'Output files \ 

• Othar output data \ 

' \ 

' Function cal la \ 

' Subroutina calls \ 

' Comnanta \ 

1 llililili# 


SHARED ZNE$(), TGTS$ () , SLOT$() 


Al$ 

A2$ 

A3$ 

A4$ 

A5$ 

A6$ 

Bl$ 

B2$ 

B3$ 


'TBAR'S 
' DBARS 


##.#" 

#.#" 

####«# ###«# ««#« «««« ##«##«" 'n ' a. 

««««.« ###.« «*.« #«.« #«##.»" ' T ' a SECONDS 

###.# ##.# #.# #.# ###.#" 'D INCHES 

««#««# «#«##« »#««« «###« «#«»«#" 

SPACE$(19) + "Targat Pairs by ordar of cross check scan" 
SPACE$ (15) + "Avaraga Duration" + SPACE$(12) + "Average dis 

>tance A/B" 

"Pairs 1 2 3 4 ALL1 2 3 4 ALL " 
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PRINT #8, Bl$: PRINT #8, B2$: PRINT #8, B3$ 

FOR L - 1 TO NOTP 

PRINT #8, USING "\ \" * TGTS$ (L) ; 

FOR I - 1 TO lg2 STEP lgl 

X - 0: IF TROTS (L, I) <> 0 THEN X - TROTS (L, I + 1) / TROTS ( 

>L , I) / 30 

PRINT #8, USING A2$; X; 

NEXT I 

PRINT #8 , M " ; 

FOR I - 1 TO lg2 STEP lgl 

x - 0: IF TROTS (L, I) <> 0 THEN X ■ TROTS (L, I + 3) / TRGTS ( 

>L, I) 

PRINT #8, USING A2$; X; 

NEXT I 
PRINT #8, 

NEXT L 

B4$ ■ SPACE$ (15) + "Std Dev Duration” + SPACE$(12) + "Std Dev dia 

>tance A/B" 


B5$ - "Pairal 234 
PRINT #8, B4$ : PRINT #8, B5$ 
FOR L ■ 1 TO NOTP 

PRINT #8, USING "\ 

PORI ■ 1 TO lg2 STEP lgl 
IF TRGTS (L, I) > 1 THEN 
X - TROTS (L, I + 1) 

Y - SQR(TRGTS (L, I + 


ALL 


V' ; tgts$ (L) ; 


ALL" 


'STD SEQUENCE TIME 


/ TRGTS (L, I) / 30 
2) / 900 / (TROTS (L, 


I) - 1) - X * 


ELSE 


Y « 0 
END IF 

PRINT #8, USING A2$ ; Y; 

NEXT I 

PRINT #8, SPC (5) ; 

FOR 1*1 TO lg2 STEP lgl 
IF TRGTS (L, I) > 1 THEN 

X - TROTS (L, I + 3) / TROTS (L, I) 

Y - SQR(TRGTS(L, I + 4) / (TRGTS (L, 

ELSE 


•STD DISTANCE A/B 


I) - 1) - X * X) 


Y - 0 
END IF 

PRINT #8,. USING A2$; Y; 

NEXT I 
PRINT #8, 

NEXT L . Joot 

PRINT #8, SPACE$ (19) + "# OF CCS" + SPACE$(29) 

PRINT #8, " 1 2 3 4 ^ 


+ "Time, Sec' a" 

ALL 1 

3 4 ALL" 


FOR L - 1 TO NOTP 

PRINT #8, USING "\ \" * TGTS$ (L) ; 

PRINT #8, USING A3$; TROTS (L, 1); TRGTS (L, 

> TRGTS (L, 


6) ; TRGTS (L, 
16) ; TRGTS (L, 


ID ; 
21 ) ; 


PRINT #8 , " " ; 

PRINT #8, USING A6$; TRGTS (L, 2) 


/ 30; TRGTS (L, 7) / 30; TRG 
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Kt"#8 S<I " 121 ' 3 ° ; ™ TS<L ' 17 > / 30; TRGTSfL, 22) / 


NEXT 


PRINT #8, 


END SUB 


1 PRNTGTS 


SUB READSEQ 

'########## 

1 Purpos* 


1 Parameters ^ 

’Other input data .\ 

•Input files . ’ \ 

'Output files . ’ \ 

’Other output data \ 


'Function calls \ 

' Subroutine aalls \ 

' Comments v 

•#»##«##### 

SHARED IAID AS INTEGER 

SHARED ISEQNUM, IRCNOA, IRCNOE.ro, ISWTCHNO, ITYPENOA, ITYPENOB T 

shared ida,. idb $ , ibe Q t, zone*,, zoneb S , aidon^T££&,"± 

DIST ' HE “ A$ ' HE “ B *- IC «™, Sra “ B$ 
ISEQNUM » VAL (MID$(A$, 3, 4)) 

IRCNOA - VAL(MID$(A$, 9, 4)) 

IRCNOEND « VAL(MID$(A$, 14 4)) 

ISWTCHNO - VAL (MID$ (A$ , 20,' 2)) 

ITYPENOA - VAL (MID$ (A$ , 24, 2)) 

ITYPENOB - VAL (MID$ (A$ , 27, 2)) 

TYPEA$ - MID$(A$, 31, 4) 

TYPEB$ - MID$(A$, 36, 4) 

IDA$ - MID$(A$, 42, 3) 

IDB$ - MID$(A$, 46, 3) 


ITYPENOB - VAL(MID$(A$, 2 
TYPEA$ - MID$(A$, 31, 4) 
TYPEB$ - MID$(A$, 36, 4) 
IDA$ - MID$(A$, 42, 3) 
IDB$ - MID$(A$, 46, 3) 
ISEQT - VAL (MID$ (A$ , 51, 
ZONEA$ - MID$(A$, 57, 1) 
ZONEB$ - MID$(A$, 59, 1) 
AIDONA$ - MID$(A$, 62, 1) 
AIDONB$ - MID$(A$, 64, 1) 
SPEEDA$ - MID$ (A$ , 67, 1) 
SPEEDB$ - MID$(A$, 69, 1) 


• whether to make pairs containing tag show the difference 

•tag will be co^ted^^^!* DiC ® ° n ” " " ° n ' th * 

IF (I ?i° " 21 ° R IAID " 22 > ^ ITYPENOA * 15 THEN 
IF AIDONA$ - "1» THEN ITYPENOA =16 
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IF 8PEEDA$ - "1" 
END IF 

IF (I AID - 21 OR I AID 
IF AIDONB$ - "1" 
IF SPEEDB$ - "1" 


THEN ITYPENOA * 17 

• 22) AND ITYPENOB 
THEN ITYPENOB - 16 
THEN ITYPENOB -17 


15 THEN 


END IF 


IOVERLAPT * VAL (HID$ C A$ , 72, 4)) 
DIST - VAL(MID$(A$, 78, 4)) 
HEADA$ • HID$(A$, 84, 3) 

HEADB$ - MID$(A$, 88, 3) 

ICNTA m VAL(MID$(A$, 93, 4)) 

ICNTB - VAL<HID$(A$, 98 4)) 


XXXI $ 
XXX2$ 
XXX 3$ 
XXX49 
XXX 5$ 


#### ##i# #### ** ## ## " 

. .. \ \ \ \ \ \ \ \ #### " 

. .. ! 1 ! ! " 

« „ || «««« ##.#" 

PRINT N #8, X U3ING XXXI $ ! ISEQNUM; I RCN°A^ j^eNOB 

PRINT #8, USING XXX2$; TYPEA$/ AIDONA$; AIDONB$ ; 

PRINT «8, USING »«38.; | »' 3pEEBB$; IOVERIAPT; DIST; 

*4: “sing «•> HERD* ; herd,*; icntx; icntb 


END 


BUB 


•READSEQ 
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EBQfiBAM aUOIU 

type reotype 

AX AS INTEGER 
BX AS INTEGER 
CX AS INTEGER 
DX AS INTEGER 
BP AS INTEGER 
SI AS INTEGER 
DI AS INTEGER 
FLAGS AS INTEGER 
DS AS INTEGER 
ES AS INTEGER 
END TYPE 

DIM INREG AS REGTYPE 

DIM OUTREG AS REGTYPE 

DIM ATLX1 (1 TO 6) , ATLY1 (1 TO 6) 


= 100: ATLYO * 20 


CPI! " 204.8: 

- 320 ; VSTEP " J, 60 ' '^3. . ATUt0 . 

I ATLX1<5) - ATLXO + HSTEP: ATLX1 («) 


ATLX1 (1) 
ATLXl (4) 


ATLYl(l) - ATLYO: ATLY1 (2) - ATLYO + VSTEP: 
ATLYl (4) - ATLYO: ATLY1 (5) - ATLYO + VSTEP: 


AT 

>LXO + HSTEP: 

ATLYl (3) - ATLYO + 2 
>* VSTEP 

ATLYl (6) - ATLYO + 2 

>w4r VQTF.P 


TITLE$ 


Look Point Position* In Oculometer Coordinates" 


T% 


ON ERROR GOTO NOSUCHFILE 

OPEN "flsindxl" FOR INPUT AS #1 

ON ERROR GOTO 0 TVT __ v _ 

IF T% ■ 1 THEN PRINT "Can't find INDEX file 

LL - 0 
SCREEN 12 
CLS 1 


END 


DO 


LL - LL + 1 
INPUT #1, FILENAME $ 
IFFILENAME$ - "" THEN PRINT 
RUN$ • RIGHT$ (FILENAME $ , 8) 
DAT$ - FILENAMES + ".DAT" 
'PRINT RUN$, DATS 


••BLANK LINE INDEX FILE": 


EXIT DO 


T% - 0 

ON ERROR GOTO NOSUCHFILE 

OPEN DATS FOR INPUT AS #2 
ON ERROR GOTO 0 

IF T% ■ 1 THEN PRINT "Can't find 


OCULOMETER DATA FILE : " + 
>DAT$: EXIT DO 


CLOSE 2 
OPEN "R" , 
FIELD #2, 
LEN FLE% * 


r DATS , 8 . 

/ 0 M B$ 'OK ^e C$ dat IS open for rand 
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I 


BLX m -5 ; BLY » -5: TRX 


TRY 


TUtl m ATLX1 (LL) : TLY1 m ATLY1 (T.T.) 

BRX1 - TLX1 + EDGE : BRY1 - TLY1 + EDGE 
WINDOW (BLX, BLY) -(TRX, TRY) 

VIEW (TLX1 , TLY1) - (BRX1 , BRY1) , , 1 


>OM INPUT 

CORNERS OF THE WINDO 
>W, INCHES 


SFX! - 1 / CPI! 
SFYf ■ 1 / CPI? 
XO ! » o 
YOf ■ 0 
LOCATE 2, 23 
•PRINT TITLE$ 


*J% 0 

FOR 1% - 1 TO LENFLE% 
GET #2, 1% 


A% - CVI ( A$ ) : B% - CVI (B$) : C% - CVI(C$): 
IF (A% <> 0 OR B% <> 0 OR C% > 10) AND D% 
J% - J% + 1 

Xf - SFX? * A% + XOI: Yf ■ SFY I * B% 
CIRCLE (Xf , Yf), DOTSIZE 
END IF 
NEXT 1% 


D% ■ CVI (D$) 
> 3 THEN 

+ YO! 


LOCATE TLY1 / 16, TLXl / 8 
' ID3 ■ DATE$ + " » + LEFT$ (TIME$ , 5) + tr 

ID$ m RUN$ + » 'i + STR$ ( J%) 

PRINT ID$ 


+ RUN$ + « 
+ STR$(J%) 


CLOSE 2 

LOOP WHILE NOT EOF(l) 

CALL INTERRUPT ( CH5 , INREG, OUTREG) 
CLOSE 1 
SCREEN 0 


' *■* print screen function 


END 


NOSUCHFILE : 

T* - 1 
RESUME NEXT 


C-112 


PROGRAM SRCHDAI 

OPEN " P . OUT” FOR OUTPUT AS #5 


T% - 0 


ON ERROR GOTO NOSUCHFILE 
OPEN "flaindax" FOR INPUT AS #2 
ON ERROR GOTO 0 

IF T% ■ 1 THEN PRINT "Can't find INDEX fila END 

INPUT #2, inmax%, outmax* 

PRINT #5, : PRINT #5, : PRINT #5, " In-track triggar > " ; in 

>tnax%, "Out-track triggar > "; outmax%: PRINT #5, 

PRINT : PRINT : PRINT " In-track triggar > "; inmax*, "Out-t 

>rack triggar > "; outmax%: PRINT 

Y 

Counts" 

PRINT " Bar • X I VU Counts" 

DO 


#5, " 

Run 


Tima 

R»c # 

> 

X 

PD 

tt 

Run Tima 

Rac # 

X 

Y 

PD 


INPUT #2, FLE$ 

IF EOF (2) THEN END 

IF FLE$ “ "" THEN END 

ID$ ■ LEFT$ (RIGHT$ (FLE$ , 12), 8) 

T% - 0 

ON ERROR GOTO NOSUCHFILE 
OPEN FLE$ FOR INPUT AS #1 
ON ERROR GOTO 0 

IF T% ■ 1 THEN PRINT "Can't find fila FLE$: GOTO LOOP1 

CLOSE 1 

OPEN "R", #1, FLE$ , 8 

FIELD #1, 2 AS A$, 2 AS B$ , 2 AS C$, 2 AS D$ 

LENFLE% - LOF(l) / 8 

PRINT #5, : PRINT #5, " " ; ID$ 

PRINT : PRINT " " ; ID$ 


SUM£ - 0! 

FOR II a 1 TO LENFLE% 

GET #1, 1% 

A% - CVI (A$) : B* - CVI (B$) : C% = CVI (C$) : D% * CVI(D$) 

MINUTE % ■ SUM* \ 1800 

DUM£ « SUM£ - (1800£ * MINUTE %) 

SECOND% » DUM£ \ 30 
SUM£ « SUM£ + D% 

IF A* - 0 AND B% - 0 AND C% O 10 THEN 


IF D% > outmaxl THEN 
PRINT #5, " 

PRINT #5, ID$ ; " OUT "; 

PRINT #5, USING »###"; MINUTE*; SECOND*; 

PRINT #5, USING "#######."; I*; A*; B*; C*; D* 
PRINT " " ; 

PRINT ID$ ; " OUT " ; 

PRINT USING "###"; MINUTE*; SECOND*; 

PRINT USING "####### . " ; I*; A*; B*; c*; D% 

END IF 


ELSE 


IF D* > inmax* THEN 
PRINT #5, " 


If • 



PRINT #5, ID$; " IN 

PRINT #5, USING "###" ; MINUTE % ; SECOND%; 

PRINT #5, USING "#######."; 1%; A%; B%; C%; D% 
PRINT " " ; 

PRINT ID$ ; " IN 

PRINT USING "###"; MINUTE %; SECOND % ; 

PRINT USING "#######. 1%; A%; B%; C%; D% 

END IF 
END 17 
NEXT 1% 

CLOSE 1 
LOOP1: 

LOOP 

END 

N08UCRFILE : 

T% - 1 

RESUME NEXT 
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COMMON UTILITY 


^######° N L0G$ (SB$ ’ A$) 


' Purpose v 

' Parameters 

• • • « \ 
• • • * \ 

'Other input data. . . 

\ 

\ 

'Input files 


'Output files 

\ 

’ Other output data . . , 

....\ 

1 

'Function calls. 

\ 

. . .\ 

•Subroutine oalls 

...\ 


\ Tag. message with tin* & source for log 
\ SB$ i. usually tha subroutine nl^^ 9 ’ 


>routine nans, 


' Comments 


LOQ$ baaps 

LO<3$ " SB$ + LEFT$ (DATE$ , 5) + » » + 


BEEP 

I 
I 


end function 


LEFT$(TIME$, 5) + '<)•• + A $ 

• LOO ’ DUMMY PAGE $ ?r? ,• PAGE EXIT,- 


FUNCTION LOGS* (SB*, A*) 

' Purpose 

\ 

' Parameters 

t 

• • • • \ 
....\ 

'Other input data. . . 

\ 

\ 

'Input files 

\ 

'Output files 

\ 

•Other output data. . . 

...\ 

1 

' Function calls.. 

\ 

. . . \ 

•Subroutine calls.... 

• a.\ 


laga string. 


LOGS$, with tha su 
>broutina name , 


########## ^ Exactly tha same as LOG$ but no beep. 

L00S$ " SB$ + DATE$ + " " + ^FT $ (TIME $/ 5) + + A$ . modified 


> 1/5/93 






FUNCTION 'LOSS 'D^^j ' ‘ ' 


SUB 6ETXXA (FILENO%) 

' Purpoaa \ Raada . r. 

' Paramatara \ fileno% 

'Other input data \ 


cord from tha appropriate fil 
>a into XX 
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'Input filM 

'Output filM 

•Other output date. 
* function call* • 
i subroutine calls. ■ 
' 


A 

A 

A 

A 

A 

A 


FILEMRG$ 


XX 


This makea it • 


.maiar to modify record f 
>orm. 


•#########* record on the FIIXMRG$ fil«- 

•Read the array XX from a reoor» 

SHARED XX Ml FIXCOMB TGTTYPEC , XX.FIXLNGTH, XX.PUPDIAM 

INPUT #FIIXNO% , pRAMENO, XX.TOTX, XX.TGTY, XX. FI 

>, XX.TGTID, XX. DI 8TANCE, 3W-™ ^COUNTDOWN, XX.CONTFIX, XX. C 

>XX, XX.FIXY, ix.AIDON, XX. SPARE 

>ROS8CHECK, XX. zone, 


END SUB 


• GETXXA 


' DUMMY PAGE 9 ?r? ; PAGE; EXIT; 


SUB GETXXB (FILENO%, NEOFMRG) 

SUB OETXXB (FILENO%, NEOFMRG) 


v Reed. . record frc 


N 


’ Purpoae 

■ \ riumo%, xxo m fixcomb 

. Other loput date • • • * * • ; ^ filemmS 

• output filea . ' 

• Other output data \ DTEMPl 

'Function oalla \ 

' subroutine «U. \ it ...i.r to modify r.o~d^ 

•Commenta >orm. 


•########## record on the FILEMRG$ file- 

'Re ad the array DTEMPl from a re 

SHARED DTEMPl AS FIXCOMB nTBMPl TGTTYPEC , DTEMPl . FIXLNGTH 

INPUT #FILENO%, DTEMPl. TGTTYPEN, DTEMP • jjTEMPl . PUPDIAM 

,. n1 _ t qt&NCE DTEMPl . FRAMENO , DT 

INPUT #FILENO % , DTEMPl . TGTID , DTEMPl. ' >EMP1 . TGTX 

rtmr.»4t>i ptXX DTEMPl. FIXY, DTEMPl. HEA 
INPUT #FILENO%, DTEMPl. TGTY , DTEMPl. FIXX, >DING 

IOT0 T .FIIEHOS, DTEMPl • COOHTOCHN , DTEMPl . C0MTF1* , 

INPUT IFILEMOt, DTEMPl. SPEED, DTEMPl .AIDOM , DTEMPl. SPARE 

IF EOF ( FILENO% ) THEN NEOFMRG - 1 


END SUB 


• GETXXB 


SUBYESORNO (AS, BS) 

•########## 

' Purpoae 
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• Parana tars \ 

1 Othar input data \ 

'Input files \ 

' Output filaa \ 

1 Othar output data \ 

•runotion calls \ 

'Subroutine oalls \ 

' Comments 

1 Itllllltll 
PRINT A$ 

DO 

INPUT " YES or NO ???", C? 
d$ - LEFT$(UCASE$(C$) , 1) 

LOOP UNI — " " N " 

B$ - d$ 

• 

I 

END SUB 


i yes or no -dui«ypage$ 


?r?; PAGE; EXIT 
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